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Editorial 


Le numéro 6 de Pom's représente un grand changement : tout d’abord, nous avons modifié 
la couverture et la présentation, comme vous avez pu le remarquer immédiatement. Cela nous 
permet de vous donner, dans le même format, l'équivalent de quinze pages de plus ; en effet, on 
peut mettre 50 % de texte en plus dans une page composée. Nous avons aussi gagné une 
quinzaine de pages en mettant sur deux colonnes les listes en assembleur des programmes HELLO 
et TORTUE&, avec des caractères compressés. Dites-nous si vous préférez avoir ainsi plus de 
matière, ou si vous trouvez que la lisibilité en souffre trop. Enfin, le tirage de Pom's passe à 9 000 
exemplaires. 


Nous avons tenu compte de la remarque de plusieurs lecteurs au Sicob, se plaignant du 
niveau trop élevé des articles : un effort particulier a été réalisé quant à la réalisation d'articles 
pédagogiques. Remarquons en outre que, même si un article présentant un programme en 
assembleur peut paraître trop compliqué à lire, cela ne vous empêche pas d'utiliser ce programme à 
partir de la disquette (le mode d'emploi est fourni sur le programme MENU de chaque disquette). 


Signalons enfin que le Recueil N° 1 de Pom's sera disponible dès le 27 décembre ; ce recueil 
regroupe, en près de 200 pages, la plupart des articles des quatre premiers numéros de Pomss ; 
l'ensemble des programmes est fourni sur trois disquettes. Cet album coûte 120 F seul, et 270 F 
avec ses 3 disquettes d'accompagnement, port compris. Nous sommes maintenant en rupture de 
stock des numéros 1 à 3 : seuls les numéros 4, 5 et 6 peuvent donc être commandés séparément 
(ou aver leurs disquettes). 


Rappelons aussi qu'il est toujours possible de commander des disquettes séparément : 50 F 
par disquette d'accompagnement de Pom's, 75 F pour la disquette d'accompagnement du livre 
« Visicalc sur Apple» (spécifier dans ce dernier cas s'il s'agit de DOS 3.2, DOS 3.3 ou Apple Ill). 


Enfin pour ceux d'entre vous qui souhaitent mettre de la couleur dans leur vie, nous 
proposons aussi le T-shirt avec la pomme en six couleurs (tailles 36-38, 38-40 et 40-42) à 50 F. 


Passons maintenant au programme de ce numéro. Nous vous offrons une course de tortues, 
entre celle de Michel Crimont en Pascal, et celle de Jacques Duma en assembleur. Olivier Herz 
vous apporte un nouveau chef-d'œuvre avec l’analyseur de syntaxe, qui vous permettra de tester 
tout un programme BASIC, même dans ses corridors peu fréquentés. Thierry le Tallec et Jacques 
Tran-Van vous donnent enfin un programme de HELLO très performant que vous pourrez mettre 
sur toutes vos disquettes. 


Gérard Michel vous offre un programme d'INPUT généralisé, avec un sous-programme en 
assembleur commenté de façon très détaillée. C'est particulièrement intéressant comme initiation à 
l'assembleur. Remarquons aussi, au niveau pédagogique, une nouvelle contribution de Guy 
Mathieu, relative à l'ergonomie des programmes. 


Nous avons un banc d'essai, réalisé par André Babeanu, de «The Last One» et de C.O.R.P., 
des programmes qui écrivent vos programmes pour vous. Enfin, divers petits programmes se 
préparent à enrichir votre programmathèque et vos longues soirées d'hiver. 


Hervé Thiriez 
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Transfert d’Applesoft vers EXEC 


Jacques Duma 


Ce petit programme transforme tout ou 
partie d'un programme Applesoft en 
fichier de type TEXT dont l'EXECution 
charge en mémoire la partie de pro- 
gramme en question. De nombreux 
programmes ont été publiés à ce sujet, 
mais la particularité de celui-ci tient à sa 
concision et à son automatisme com- 
plet. 


Le programme doit être situé sur une 
disquette non protégée à l'écriture, car 
il crée (et efface à la fin) deux fichiers 
EXEC qui s'appellent l’un l’autre : 


K‘P#T1 et K‘P#T2. De plus, le 
drive par défaut doit être celui où est 
situé CAPTURE (il ne faut par exemple 
pas utiliser une séquence telle que 
LOAD CAPTURE, D1 suivi de 
CATALOGD2 et RUN). 


Quand on le lance, CAPTURE 
demande le nom du programme 
Applesoft à capturer, le numéro du 
drive où il se situe et l'identification du 
bloc de lignes à capturer : il demande 
ensuite le nom du fichier EXEC à créer 
et le numéro du drive où il faudra le 


O0: PRINT :T$ = 


mémoriser. Il ajoute le préfixe [X..] à ce 
nom ; si l'utilisateur a appuyé sur 
RETURN sans donner de nom, le nom 
sera [X..] suivi du nom du programme 
Applesoft. 


Tout le reste du travail s'effectue de 
façon entièrement automatique. Le 
lecteur intéressé par l'analyse de ls 
façon dont tout cela se fait pourra fai 
un MONCIO avant de lancer C 
TURE, ou bien tout simplement étui 

la conception de ce programme. 


AE 


ERA TENAITETTE 


10 GOSUR 1000:T$ = "CAPTURE D’UN PROGRA 
MME  APPLESOFT'"': GOSUR ZO00:T$ = 
—": GOSUR 2000: PRINT 

15 CD$ = ",D" + STR$ ( PEEK (45624) ) 

20 T$ = "CREATION D'UN FICHIER EXEC'": G 
COUBIZOODRT SR me 
RES ": GOSUR Z000: PRINT : 
PRINT # PRINT : PRINT 

30 T$ = "NOM DU PROGRAMME À CAPTURER": G 


OGSUB 2000: PRINT : INPUT N$: PRIN 
T 3 IF N$ = "" THEN TEXT =: HOME 
: PRINT "AU REVOIR.": END 


3Z INPUT "SUR QUEL DRIVE #";,ND$:ND = V 


AL (ND$): IF ND € } 1 AND ND « 
} Z THEN PRINT CHR$ (7):: GOTO 
32 

33 INPUT "LIGNES (DEBUT-FIN) ? "s:LIS$: I 
F LI$ = "" THEN LI$ = "1-63999": 
GOTO 40 

SO LT = VAL (LIS)E IF EI C1 ON ET 7 693 
999 OR LI Ç > INT (LI) GOTOG 39 

35 IF LI$ = STR$ (LI) OR LI$ = STR$ { 
EME SONG E40 

36 IF MIDS$S (LIS, LEN ( STR$ (LT)) + 1, 
FD CR A ETS 

57 LJ = VAL ( MID$ (LI$, LEN { STR$ (LI 


LF LR CC ET ORCEJNM ESS? 
INT (LJ) GOTO 33 


3208) 4) 
AUORELMCNE? 
58 GOTO 40 
393 PRINT CHR$ (7):: GOTO 335 
4QO PRINT :T$ = "NOM DU FICHIER EXEC": G 


OSUR 2000: BRINT :* INPUT X$: PRIN 
TI IF XP mOPOTHENNXS = XX FUN 
$: GOTO 45 

Ge X$ = "X." + XS 

45 INPUT "SUR QUEL DRIVE #":XD$:XD = V 
AL (XD$): IF XD$ = "" THEN XD = N 
D:XD$ = STR$& (XD): GOTO 50 

46. IF XD { > 1 AND XD :<  ? Z THEN PRI 
NT CHR$ (7):: GOTO 45 


50 GOSUE 1000: VTAE 9:T$ = N$: GOÜOSUE 20 


"LIGNES " + LI$k 
GOSUE 2000: PRINT :7$ = "DRIVE #M 
+ ND$ + " CONVERTI SUR DRIVE #" 
+ XD$ + " EN": GOSUE 2000: PRINT 


1T$ = X$: GOSUB Z000 
60 PRINT : PRINT : PRINT * PRINT : INPU 
T "EST-CE CORRECT 2? "sR$s IF R$ « 
> FOUT "SGUTE 10 
80 GOSUR 1000: VTAB 11: FLASH :T$ = " U 
N PEU DE PATIENCE 6.V.P. ": GOSUK 
ZO000: NORMAL 
100 D$ = CHR$ (4):G$ = CHR$S (354) :0P$ = 
NOPEN":WR$ = "WRITE":DLS = "DELE 
TE":CL$ = "CLOSE":EX$ = "EXEC":KI 


$ = "KEkPHTI"IK2S = "KEPHTZ"ICHS = 
MPRINT" + G$ + CHR$ (4) + GS + 

110 ZERO$S = "O" + CH$ + 6$ + OP$ + X$ + 
", D +1 XD$.+.680+t ls + CHS + G$ 
+ WRS + X$ + G6$ + ":POKESS, SSILIS 
POSE LISTE CI EC CHS + 0% + CLS + 

GS + "5" + CH$ + GS + EX + KES 
+ CDS + G$ + ":END" 

PRINT D$OP#K1$CD$: PRINT DéWR$K1S$: 
PRINT "LOAD'N$",D'"ND$: PRINT ZERO 
$: PRINT "RUN": PRINT D$CL$& . 

PRINT D$OP#$KZ$CD$: PRINT DÉéWR$SKZS: 
PRINT "LOADCAPTURE": PRINT "RUN3O 

"z: PRINT D$CL$ 

PRINT D$EX$#K1$CD$: END 

PRINT : PRINT CHR$ (4) "DELETENKXPHT 
1": PRINT CHR$ (4) '"DELETEKK*P#TZ" 
: GOTO 10 

993 END 

1000 TEXT = 

AT 0: 
AT ©: 
TAKE 5: 
E 34,2: 


200 


300 


500 
9300 


HOME : COLOR= 10: 
VLIN 0,46 AT 39: 
HLIN 0,39 AT 46: VTAE 5: H 
POKE 33,36: POKE 32,2: POK 

POKE 35,22: HOME : RETURN 


VLIN 0,46 
HLIN 0,39 


2000 HTAEH 20 — 
RETURN 


LEN (T$) / 2% PRINT T$: 
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Logiciel graphique en Pascal 


Généralités 

Dans le précédent numéro de Pom's, 
nous avons vu comment créer des des- 
sins sur une matrice 15*15 en graphi- 
que H.R. et conserver ceux-ci dans un 
fichier disque. Aujourd’hui, nous allons 
créer un langage de programmation 
« graphique interactif », langage per- 
mettant de créer, lister des program- 
mes graphiques et bien entendu les 
exécuter et les conserver. 


Dans ce présent article, nous appelle- 
rons texte la chaîne de caractères 
représentant le programme, dessin les 
dessins H.R. 15° 15 et planche la page 
graphique complète. 

Chaque texte représente une figure 
graphique plus ou moins complexe et 
porte un nom donné au moment de sa 
rédaction et nécessaire ensuite pour lis- 
ter ou exécuter ce texte. Le texte lui- 
même est une chaîne de caractères (80 
caractères maximum) ; un fichier per- 
met de ranger 15 chaînes de ce type, 
donc 15 programmes différents qui 
pourront s'appeler les uns les autres ; 
par ailleurs, il sera toujours possible, 
lors de l'exécution d'un dessin, de char- 
ger un nouveau fichier de 15 textes. 


Syntaxe du programme 


Elle est la suivante : 

[instruction], [instruction], [instruction]. 
Chaque instruction est séparée de la 
suivante par une virgule, le texte 
devant se terminer par un point. Noter 
que lors de la rédaction du texte, un 
retour chariot peut être inclus après une 
virgule pour faciliter l'écriture et la lec- 
ture en 40 colonnes. Les instructions 
comportent une lettre ou un signe 
décrivant la fonction à réaliser, éven- 
tuellement un signe + ou —, puis un 
chiffre de O0 à 255 ou une chaîne de 
caractères. 


Les instructions sont : 


D + : crayon à blanc (nécessaire pour 
dessiner). 

D— : pas de crayon (déplacement 
sans écriture). 

A+n : avance le crayon de n. 

A—n : recule le crayon de n. 

T+n : tourne de n degrés dans le sens 
inverse des aiguilles d’une montre. 
T—n : tourne de n degrés dans le sens 
des aiguilles d’une montre. 
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Px/y : positionne le crayon en x,y — 
le / s'inscrit seul lors de l'édition. 

Z : éteint le crayon (équivalent à 
D—) ; positionne le crayon au centre 
de l'écran et le tourne vers la droite. 
C+n: place le caractère n de 
SYSTEM.CHARSET sur l'écran, le 
coin inférieur gauche du caractère à la 
position du crayon. Le signe + inscrit 
un caractère normal, le — en inversé. 
S+(chaîne) : place la chaîne de 
caractères sur l'écran à la position du 
crayon. Même signification du + ou 
du — que pour C. 

>n<« nom » : prend le dessin numéro 
n du fichier de dessin « nom » et le 
place sur l'écran à la position du 
crayon. 

:<nomfigure> : prend dans le fichier 
texte en cours le dessin « nomfigure » 
et l'exécute. 

Rn ([inst], [inst].) : répète n fois les 
fonctions entre parenthèses ; l'arrêt de 
répétition est obtenu en tapant un 
point, les parenthèses s'inscrivent seu- 
les lors de l'édition. A noter qu’une 
répétition peut contenir une autre répé- 
tition. 

In : est un incrément, n un facteur 
multiplicatif n'agissant que sur les 
déplacements et non sur les angles ; 
par exemple 12,A + 15,7 +60 avance 
le crayon de (2 x 15) = 30 et le tourne 
de 60 degré. Le facteur In est automa- 
tiquement incrémenté de 1 à chaque 
passage dans une boucle : exemple la 
figure nommée CARRE. 

D+,R4 (A+30, T+90.). 

et la figure MULTIPLE 


. D—, P10/10, 12, R3 (:CARRE.). 


le curseur étant passé en 10 x 10, fac- 
teur de répétition à 2, donc le premier 
carré fera 60 X 60, le suivant 90 x 90 et 
le troisième 120 x 120. 


Chaque figure, une fois définie, est 
conservée dans un fichier sur le disque. 


Le programme 


Il utilise les facilités d’analyse de syntaxe 
et de récursivité du PASCAL. 

Ce programme pourra avantageuse- 
ment être associé en un seul bloc avec 
le programme de graphisme de 
Pom's 5, si bien que l’on aura en 
même temps toutes les possibilités sous 
la main. 


Les procédures PRENINFO, PREN- 
CAR, PRENCHAINE, etc., ont déjà 


Michel Crimont 


été définies et seront avantageusement 
incluses dans la librairie, ce qui libérera 
de la place pour le texte en cas de 
développement ultérieur. 


Les fonctions ECRIMAGE et LIRI- 
MAGE sont dues à un de nos lecteurs, 
M. Devernay : elles permettent de 
transférer la page graphique sur le dis- 
que et vice versa sans occuper de buf- 
fer supplémentaire grâce aux procédu- 


res BLOCKREAD et BLOCKWRITE. 


La procédure OPENLIST ouvre la liste 
de 15 chaînes programme et la laisse 
en mémoire ; éventuellement, si la liste 
n'existe pas, cette dernière est créée. 


La procédure GETINF renvoie le 
numéro de fichier correspondant au 
nom d’un texte. Le fichier ne compor- 
tant que 15 textes programme au 
maximum, aucun tri n'est fait à ce 
niveau et la recherche est purement 
séquentielle. 


La procédure GETINS : renvoie une 
chaîne de texte programme complète 
et utilise AJPM (ajoute + ou —) quine 
permet de rentrer au clavier que + ou 
—, AJBIT qui ne garde que es valeurs 
de 0 à 255 et AJCHAINE qui prend 
une chaîne de caractères. 


La chaîne de texte en cours est toujours 
pointée sur le caractère à entrer par la 
variable INDEX déclarée globale afin 
de ne pas être influencée par les appels 
récursifs ; la procédure GETINS elle- 
même gère la syntaxe de chaque ins- 
truction et évite toute erreur de frappe 
au clavier. 


Le premier caractère de l'instruction est 

filtré entre tous les caractères possibles 

et la commande est placée dans la 
chaîne à la position de INDEX. 

La syntaxe est ensuite quidée par l’ins- 

truction CASE. Pour A, T et C, obliga- 

tion d'entrer + ou — suivi d’un chiffre 

entre 0 et 255. 

Pour D, donner + ou —. 

Pour I, un bit. 

Pour S, un signe puis une chaîne de 
caractères (ici limitée à 20 
caractères). 

Pour P, deux bits successifs. 

Pour >>, un bit puis le nom du fichier 
disque. 

Pour : le nom de la figure. 

Enfin, pour R,un bit puis appel récursif 
à GETINS. 


L'instruction étant totalement chargée, 
obligation d'entrer une virgule pour 














l'instruction suivante ou un point si l’on 
a terminé ; la suite d'instruction dans 
une boucle R doit elle-même se termi- 
ner par un point. 

Le système gère lui-même certains ter- 
minateurs, par exemple après la frappe 
de Px le signe / apparaît en sépara- 
teur ; après le Rn apparaît automati- 
quement une parenthèse gauche, et 
après la frappe du point la parenthèse 
droite correspondante. La frappe des 
lettres de commande et des signes ne 
nécessitent pas la frappe du RETURN. 
Par contre, il faudra taper ce dernier 
pour valider les chaînes de caractères 
ou les entiers. 


A noter que, lorsqu'un RETURN suit 
une virgule, il est gardé dans le fichier, 
ce qui permet une écriture et une lec- 
ture plus agréables des textes à l'écran. 


La procédure EDITE initialise le nom 
d'un texte à rentrer dans le fichier, 
cherche une place vide dans le fichier, 
initialise une chaîne de 80 espaces, 
l'envoie à GETINS pour prendre le 
texte du programme puis enregistre la 
chaîne de caractère et son nom dans le 
fichier. 

Les procédures LIRE et LITINSTRUC 
sont calquées sur EDITE et GETINS : 
elles sont utilisées pour lire la chaîne 
texte tout en respectant la syntaxe 
d'écriture. La procédure CATALOG 
permet de lister les textes du fichier 
LISTE en cours et éventuellement 
d'effacer un texte caduc ou que l'on 
veut réécrire. La procédure EXECU- 
TION place la variable IND à 1, début 
de la chaîne de caractères et exécute le 
texte PJET grâce à la procédure REA- 
LISE : cette procédure, à partir de la 
syntaxe du langage, effectue les diffé- 
rentes fonctions prévues sur la page 
graphique. 

À noter : 

— la récursion introduite par R qui 
appelle REALISE avec la chaîne d’ins- 
truction situées jusqu’à la dernière 
parenthèse fermante, ce qui permet à 
un Répète d'être à l'intérieur d’un autre 
Répète ; 


FROGKAM TORTUE 


USES TURTLEGRAFHIC ; 


CONST NELISTE #15; 
TAILLE #14; 
UOL. CRE LE ! 


LONGFKOG #80 


— la récursion introduite par: 
«nom» qui rappelle EXECUTION 
pour le texte « nom ». On remarquera 
que pour À le déplacement est MOVE 
(x x INC). INC étant l'incrément, ce 
dernier ne pourra être modifié que par 
une nouvelle valeur de I. Si l’on désire 
qu’à la sortie des boucles INC retrouve 
automatiquement son ancienne valeur, 
il faudra déclarer INC dans EXECU- 
TION et introduire INC:=1 dans le 
corps de la procédure avant l'appel de 
REALISE. 


Le programme principal place le menu 
à l'écran et permet de choisir les diffé- 
rentes options. (Certaines fonctions 
agissent au niveau des textes (1,2,3,4 ) 
et ne sont actives que si la ligne 
———TEXTES= “...8 nomme un 
fichier. Pour créer ou charger un 
fichier, il faudra donc appeler la 
fonction 1 et nommer le fichier ; ce 
fichier sera lu ou créé et son nom appa- 
raîtra entre les crochets. À partir de ce 
moment, 2 permettra d'éditer une ligne 
supplémentaire de texte, 3 de lire un 
texte et 4 de lire le catalogue des textes 
de ce fichier. 


La deuxième partie, intitulée —— 
GRAPHIQUES ——, permet : 

5 : effacement de la page graphique. 

6 : visualisation de la page graphique, 
le RETURN ramène au menu. 

7 : sauve la page graphique sur le dis- 
que. 

8 : lecture d'une page graphique du 
disque. 

9 : exécute un texte. 

0 : sortie du programme. 


Modifications éventuelles 


1. Tous les fichiers : textes, dessins, 
planches sont sur le disque du lec- 
teur 2 ; si l’on préfère travailler sur le 
lecteur 1 il suffit de remplacer dans les 
déclarations VOL="'#5: par 
VOL ='#4. 

2. Si l'on désire des programmes plus 
longs, on pourra remplacer 






LONGPRO =80 par LONGPRO = X 
(X < 255). 


3. Si l'on désire un fichier plus long, il 
suffit de changer la constante de 
NBLISTE. 


Extensions envisageables 


1. Ajouter un véritable éditeur de ligne 
avec corrections. 


2. Ajouter d’autres fonctions ; pour ce 
faire : définir le caractère de la fonction 
et l'introduire à PCAR, écrire les lignes 
correspondantes dans les CASE de 
GETIND, LITINSTRUC et REALISE. 


3. Écrire des procédures PASCAL 
spécifiques pour certains dessins diffici- 
les à réaliser par ce programme, par 
exemple : arcs de cercle, polygones 
réguliers, etc., et placer les lignes cor- 
respondantes au menu. 


4. Écrire en instruction immédiate sur 
la page graphique en acceptant des 
caractères à la place du RETURN. On 
pourra utiliser la même syntaxe, un 
déplacement point par point, ou les 
deux. 

5. Utilisation de couleurs pour le fon 
ou les dessins. 


6. Définition de fenêtres. 


7. Rotation, agrandissement de des- 
sins, déplacement de dessins dans la 
planche. 


8. … À vos claviers... 


Attention ! 


Afin de ne pas surcharger le pro- 
gramme, les contrôles d'erreurs ont été 
limités ; en particulier, il n’y a pas de 
contrôle de sortie de la page graphi- 
que, celui-ci peut être ajouté à la fonc- 
tion À et à Ÿ pour P. Lors de la rédac- 
tion de la chaîne texte, le contrôle de 
longueur est un peu frustre et intervient 
au caractère 77 avec retentissement de 
bips sonores ; ceci suffit sur les instruc- 
tions courtes, par contre le nom d’une 
figure peut être coupé si l'on n’y prend 
garde. 


s'il Vous ELAÎT … 
DÉSSINE -MOI AVEC 
UNE TORTUE 
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TYFE  CHOIDECA SET OF CHAR; 
COMMANDE RECORD 
NOM SSTRINGC101; 
INSTRUC $STRINGCLONGFRKOG] 
END ÿ 
MEMOIRECRAN  =FACKED ARRAYCO0,,81911 OF 0,,255; 
FORME eFACKED ARRAYELO,:,TAILLE,0,,TAILLE] OF EOOLEAN? 
VAR HOME ,ES,EFL,EFE, SON, INV, NORM, CR£ CHAR; 
CA CHAR; 
COM $ COMMANDE ; 
LISTE SFILE OF ARRAYCL,:NELISTE] OF COMMANDE; 
INDEX: L,INC  SINTEGER}: 
NCOM, NIMA STRING; 
FROJET STRING; 
ÉCRAN $RECORD CASE EOOLEAN OF 


FALSE ?$ CADRESSE $ INTEGER) ; 
TRUE _ $ C(FOINTEURS AMEMOTRECRAN) 


END $ 
FHOTO FILLES 
ALEUM FILE OF FORME; 
CX!X) 
CX FROCEDURES GENERALES HAETTUELLES X) 
CXAFX ) 
FROCEDURE FRINFO; 
EE CG IN 
HOME. 4 = CHR C12) ÿ EFL£eCHR(29); ES  $=CHK(8); CK $=CHKC1LSG) ;$ 
SON $=CHK(7) 3 INVS=CHRC18) $ NORMS=CHRC20)5 EFE$=CHK(11) 


END 


FROCEDURE FRENRETURN; 
VAR GORT  SCHAKS 
ÉEGIN 
REFEAT 
READ CKEYEOARD ; SORT ) 
UNTIL EOLNCKEYEOARD ) 
END $ 


D 


FUNCTION FRENCARCEONSGSET $ CHOTDECAÀ) $ CHAR; 
VAR CH CHAR; 
EON  $#EOOLEANS 
BEGIN 
REFEAT 
READ (KEYEQOARD ,; CH) $ 
IF EOLNCKEYEOARD) THEN CH£#&CK$ 
EONS=CH IN EONSET; 
IF NOT EON THEN WRKITE(CSON) 
EÉSENÉENCH ENS RS A ICO TREN NRLTECCE) 
UNTIL FON; 
FRENCAK 3: =CH 
END ; 


FUNCTION OUT £EOOLEAN; 
ÉEGIN 

QULS=FRENCAR(C/0’,/N°1) IN C’0°1 
END ÿ 
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FROCEDURE MESSAGE CY £INTEGERS$S STRING) ; 
BEGIN 

GOTOXY(0,Y);HRITE(S,EFL) 
END $ 


FROCEDURE ALARME (CS $STRING) ; 

BEGIN 
GOTOXY (0,1) SHRITECSON;,EFE) ; 
MESSAGE(10,S); 
MESSAGE(12,'FAITES <RETURNS ‘); 


PRENRETURN 
END ; 
PROCEDURE FRENCHAINE (LONGMAX : INTEGER3 EONSET : CHOIDECAS VAR S3 STRING) ÿ 
VAR S1  :STRINGC11; 

CONT STRING} 

BEGIN 

Slim’ ‘} 

CONT:="/3 

REFEAT 


IF LENGTHCCONT)=0 THEN S1L11$=FRENCARCEONSET+CCR I) 
ELSE IF LENGTHCCONT)=LONGMAX THEN S1C11%=FRENCAR(CCR, EST) 
ELSE S1C11$=FRENCAR(EONSET+CCR, ES 17) ; 
IF S1iL11 IN EONSET THEN CONT#=CONCATCCONT,51) 
ELSE.IF SiLL1I=ES THEN 
BEGIN 
WRITE(CES,° ‘,695); 
DELETE (CONT , LENGTHÇCONT);,1) 
END $ 
UNTIL S1LC11=CR; 
LF LENGTHCCONT)<250 THEN S$=CONT 
ELSE WRITE(S) 


END ÿ 
FROCEDURE ENTIERCLONGMAXSINTEGERSVAR GS$INTEGER) ÿ 
VAR 51 #STRINGL 11; 

A #INTEGER$ 


CONT STRING; 
OKSET CHOIDECA; 
BEGIN 
OKSETI=L/0’,,/9°/1$S1î=" ’SCONT: ="; 
REFEAT 
IF LENGTHCCONT)=0 THEN S1LC11%#FRENCARÇCOKSET+CCK 1) 
ELSE IF LENGTHCCONT)=LONGMAX THEN S1C11:=F"RENCAR(CCR, EST) 
ELSE S1LC115:=FRENCARCOKSET+CCR,ES 17) ; 
IF S1LC11 IN OKSET THEN CONT =CONCAT(CONT,51) 
ELSE IF S1LC1]1=ES THEN 
EEGIN 
WRITE(ES,° ‘,E#6); 
DELETE (CONT ; LENGTH CCONT ) ; 1) 
END ÿ 
UNTIL S1LC11=CK; 
IF LENGTHCCONT)<5%;0 THEN 


BEGIN 
3=0} 
FOR 1iei T0 LENGTHICONT) DO 
BEGIN 
t=6x1036=S+(ORD(CONTCII)-ORD(/0°)) 
END} 
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END ELSE WRITE(S) 
END ; 
(XX) 
(x LECTURE ; ECRITURE DE LA FÂGE ECRAN SUR DISQUE x) 


FUNCTION LIRIMAGE (TMAGE $ STRING) SFOOLEAN; 
BEGIN 
CKS TX) 
RESEFCENOTO; » IMAGE.) ; 
XF LTORESULTE%0 THEN LIRIMAGES=FALSE 
ELGE BEGIN 
LIRIMAGE $ =ELOCKREAD(FHOTO,ECRÂAN, FOINTEURS, 16)=1lé; 


CLOSE (FHOTO) 
END 

CKEL4+X) 
END ÿ 
FUNCTION ECRIMAGE (TMAGE $ STRING) $ EOOLEAN$ 
ÉEGIN 

CX$SI-X) 

REHRITE CFHOTO; IMAGE) $ 

LF TORESULT£:0 THEN ECRIMAGES$=FALSE 


ELSE BEGIN 
ECRIMAGE $ =ELOCKHRITE (FHOTO, ECRÂN, FOTNTEURS, 16)#16; 
CLOSE (FHOTO, LOCK) 
END 
CXBL+X) 
END 


FUNCTION FRENTMACVAR IMAGES STRING) $EOOLEAN 
BEGIN 
MESSAGE(22, NOM DE LA FLANCHE 5° 
FRENCHALNE C1L0,C'À"+4/2°1, IMAGE) ; 
IF IMAGE=’’ THEN FRENIMAS=FALSE 
ELSE BEGIN 
FRENTMAS=TRUE 
IF FOSC'$',IMAGE)=0 THEN IMAGE f=CONCAT (VOL, TMAGE) ; 
IF FOSC','",IMAGE)=0 THEN IMAGE $ =CONCAT CIMAGE ;  « IMA ‘ ) 


EE: 


TT 
D'Ar 


MANU AVE SEUL IN ET) 
IRAN RENE RURTS 


END LE 
END? re 
ÉKIx) Fa 
CX FROCEDURES DE GESTION DES. FICHIERS TEXTES x) 

CXHÆX ) 
FROCEDURE OFENLISTECSTSSTRINE) À 
VAK T #INTEGER 

E $ COMMANDE $ 

BEC TN 
CKET-XK) 


CLOSE(LISTE) ; 

HÉESENCÉESTE" ST); 

+ TORESULT< #0 THEN 

BEGIN 
CLOSE (LISTE) ! 
REHRITE(LISTE , ST) $SEEK(LISTE ; 0) ÿ 
L,NOMS =" ‘iL, INSTRUCI= "°°; 
FOR Tiz1l TO NELISTE DO LISTEACII]Tî= 
PUT(LISTE)? 
CLOSE(LISTE ; LOCK) ÿ 
RESET(LISTE,ST) 
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END ; 
CKkST+X) 
END ; 


FUNCTION GETIND(NMS STRING) : INTEGER; 

VAR TITNTEGERS 

EEGIN 
Lisæl;GETIND:=0; 
WHILE CNM£SLISTEACTI,.NOM) AND CIENELISTE) DO Ti=l+1; 
IF NMELISTENCII,NOM THEN GETINDS=T 

END $ 


FROCEDURE GETINS(VAR INS STRING) ; 
VAR C1 #CHÊR; 


FROCEDURE AJFM; 

ÉEGIN ; 
INSCINDEXI#=PRENCAR(E +7,77) INDEX: =INDEX+1 

END $ 


FROCEDURE ÀAJETT ; 
VAR ETT $INTEGER} 
BEGIN 

REFEAT 

EIT:=0; 

ENTIER(CS3,EIT) ; 

IF EIT:255 THEN WRITE(ES,ES,ES, ‘,66,RS,E6); 
UNTIL EIT<255; 
INSCINDEXI#=CHRCEBIT) INDEX =INDEX+1 

END ; 


PROCEDURE AUJCHAINE (NES INTEGER) ÿ 
VAR 5 SSTRINGS 
BEGIN 
Gris 
FRENCHAINE (NE, C'/À"::/2°1,5); 
IF INDEX+LENGTH(CS)ELONGFROG-S3 THEN 
BEGIN 
MOVELEFT(SC11,INSCINDEX1,LENGTH(S)); 
INDEX! =INDEX+LENGTHCS) 
END $ 
END $ 


BEGIN 
REFEAT | 
IF INDEX>75 THEN HRITE (SON, SON, SON) ; 
CLYePRENCARCE A4 7295/09/15: 2 # SP OME RO R 2 >" + ° 
IF Ci=CR THEN HRITELN ELSE BEGIN INSCINDEX1!=C1 ; INDEX: 
CASE C1 OF 
A» AE 
LE Der: 
‘C'?BEGIN AJPM}AJEIT END} 
‘D'#AJFM3 
‘L'SAJEIT; 
‘S/:BEGIN AJFM}AJCHAINE(20) END; 
‘F'#BEGIN AJEIT/WRITE(//’)}AJEIT END; 
‘3/#BEGIN AJEITSAJCHAINE(10) END; 
? 73 AJCHAINE (10); 
/R/3BEGIN 


t'#CK1) ; 
æ LNDEX+1 


12 


END ÿ 


Pom's n° 6 





AJETTSWRITEC* CC?) SINSCINDEX1$z" €C°$INDEXS =INDEX+1 3; 
GETINS (INS) ; 
HRITE (‘9 ©) SINSCINDEXT 5: ") SINDEX!=INDEX+ 1 
END $ 
END ÿ 
IF CI1£:CR THEN CILS=FRENCAR(E’,",/./1); 
INSLINDEX I #01 3 INDEX $ INDEX +1 $ 
UNTIL CCi1=’,°) GR CINDEX*LONGFROG-53) $ 
IF INDEXSLONGFROG-S3 THEN INSCINDEX-115=°,; 
END ? 


FROCEDURE EDITE 
VAR NOMFT :STRINGE 101; 
INDICE, TS INTEGERS$ 
Les 3STRINGCSO0T$ 
BEGIN 
FAGE COUTFUT) ; 
Lis; 
REFEAT 
IF LISTEACTI.NOME#"" THEN INDICES«T; 
Lisl+l; 
UNTIL CINDICE<#:0) OK CIE=NELISTE+1);$ 
IF INDICE=0 THEN BEGIN ALARMEC’FICHIER FLEIN,,,/)$EXIT(EDITE) END; 
MESSAGE (0, ‘EDITIONSFIGURE ‘) SHRITECINDICE, ’ DE ‘,NCOM); 
MESSAGE (7, NOM DE LA FIGURES’); 
FRENCHAINE (10,0 /Â"4,*21,LISTESCINDICE  , NOM) ; 
INDEX 415$ 
CXFF-X ) 
L.COTS=CHRCS0) 
FILÉLCHÔARGEEL 19807 000); 
CKFEEX ) 
GOTOXYCO0,10)$ 
GETINS CL) $ 
LCGTEACINDICE TT, TNSTRUC$=L $ 
SEEKRÇ(LISTE, 0) $ FUT (LISTE) $CLOSE(LISTE, LOCK) $RESET (LISTE, NCOM) 
END À 





FROCEDURE LITINSTRUC CS: STRING) $ 
VAR C1 CHARS 
EG IN 
REFEAT 
CLS EGSCINDEX TS MARITE (C1) INDEX $ =TNDEX+1 $ 
CASE C1 OF 


A+ ETS A 
at :FEGIN 
WRITE(SLCINDEX1) $ INDEX $=TNDEX+1 $ 
: HRITE (OKD CGCINDEX 1) ) $ INDEX $ = INDE X+1 
END $ 

di +FEGIN WRITE(CSCINDEX1) $ INDEX? =INDEX+1 END; 

FE #ÉEGIN WRITE CORD (GSCINDEX 1) ) SINDEX##INDEX+1 END; 
| Mr FEGIN 


WRITE CORD (SCINDEX1) ) $ INDEX # = INDEX+1 $ 
HRITE(*/°,0ORDCSCINDEX 1) ) ÿ INDEX # = LINDEX+1 
END? 
“4” +} 4 'RREPERT 
C1: =SCINDEXI]SWRITE (C1) $ INDEX $=INDEX+1 
UNTIEL TESEENDENT INC" 73 7973 
Ré $EEGIN 
WHRITE CORD(SCINDEX 1) ) $ INDEX $ =INDEX+1 
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REFEAT 
C1:=SCINDEX]$WRITE (C1) $ INDEX + =INDEX+1 

UNTIL (SCINDEXI IN C’,°,°,°1); 

END ; 

ARE #FEGIN 

WRITE(ORD CSCINDEX1 ) ) $ INDEX =INDEX+1; 
WRITE €SCINDEX1) $ INDEX $ = INDEX+1 ; 
LITINSTEUC(S); 
WRITE (SCINDEX1) $ INDEX $ = INDEX+1 

END ; 

END 
UNTIL Ci=’.°;$ 
END 


FROCEDURE LIKE; 
VAR INDICE SINTEGER; 
NM STRING; 
EE GIN 
FAGE (CQUTFUT) SMESSAGE C0, LECTURE $ ‘ ) SWRITE{NCOM) ; 
MESSAGE (7, NOM DE LA FIGURES‘); 
FRENCHAINE(10,C'A",,°2°1, NM); 
INDICE $=GETIND (NM) ; 
GOTOXY(0,10)SINDEX:=1; 
IF INDICE£>0 THEN LITINSTRUC(LISTEACINDICE I , TNSTKUC) 
ELSE MESSAGE(10,/N’'EXISTE FAS°’); 
MESSAGE(23,'/TAFEZ LE <RETURN& ‘) ;FRENKETURN; 
END 3 


FROCEDURE CATALOG ; 
VAR TÉINTEGER; 
CiCHAR 
BEGIN 
FAGE (OUTFUT) $MESSAGEC0, ‘CATALOGUE ‘ ) SWRITE (NCOM) ; 
GOTOXY(0,4); 
FOR Li=1 TO NELISTE DO WRITELN(TS2,’ —’,LISTEACTI 1, NOM); 
MESSAGE(23,’TAFEZ ECFFÂACE OU <RETURN# ‘)}; 
$=FRENCARCL'E*, CRT) 3 
XF C='E’ THEN 
EEGIN 
MESSAGE (23, '/NUMERO$ ’)$I$=0$ENTIER(Z, D) 
IF CT£eNELISTE) THEN 
BEGIN 
LISTEACTII,N0Mi=" / $LISTEACII],INSTRUC:=" 
END 
END 
END ; 





FROCEDURE FRENLISTE ; 
EE GTN 
FAGE COUTFUT) ; 
MESSAGE(S;, ‘NOM DU FICHIER: ‘); 
FRENCHAINE(10,C'À4’,,/2Z°1,NCOM) ; 
IF NCOM=’’ THEN EXIT(FRENLISTE); 
TE POS’ NEOM)ED THEN NEDMS =CDNE AT LOOL 4 NEO) ÿ 
LF FOSC’,/,NCOM)=0 THEN NCOMS=CONCAT (NCOM, ? , COM‘); 
OFENLISTE (NCOM) ; 
END $ 


D 


14 Pom's n° 6 





CX EXECUTION D'UN TEXTE SUR Lâ FÂGE GRAPHIQUE x) 
CKXEX) 

FRÉOCEDURE EXECUTIONCFUJET STRING) $ 

VAR INDICE, IND $INTEGERS$ 


FROCEDURE REALISE (CS: STRINE) ; 
VAR C1,ST CHAR; 


IN {STRING 
L,REF, 
LIM;CT,NSINTEGER®$ 
FEGTN 
REFEAT 


C1 5 =SCINDI SIND $=IND+1; 
CASE Ci OF 
A'3CASE SCIND] OF 
?+'$EEGIN 
IND$ =IND+1 $ 
MOVE (ORD CSC INDT)KINC) SIND = TND+1 
END ; 
‘BEGIN 
LND 3 =IND+1; 
TURN(180); 
MOVE CORD (SCTNDT)XINC) $ IND $ = IND+1 $ 
TURNC-180) 
END 
END }; 
T'$EECIN 
ST + =SCINDI SIND =IND+1?$ 
IF SI=’+° THEN TURN(ORD(SCIND1)) ELSE TURNC-ORD CSCIND I) ) 3; 
IND $=TND+1 





END ; | : 
/T'#BEGIN INC: =0RD(SCIND1) ? IND:=IND+1 END} # 
‘C'#BEGIN Fi 

ST? =SCIND1} IND?=IND+1 } Es 


IF SI=’+’ THEN CHARTYFE(C10) ELSE CHARTYFE(S) $ 
WCHAR ÉSCIND I) $ TND = TND+1 
END ; les 


RÉPARER NTI AE Se 





Trucs et astuces 


Quelquefois, votre disquette se centre mal et 
vous obtenez une fatidique 1/0 ERROR. Beau- 
coup d'entre elles pourront être évitées si, lors 
du premier accès à une disquette, vous ne fer- 
mez la porte du lecteur qu'une fois la lampe 
témoin allumée. 


En effet, la disquette se centre mieux dans ce 
cas-là. 


Enfin, si vous voulez éviter les ennuis, n'oubliez 
quand même pas que la disquette est un sup- 
port fragile, et que la tête de lecture est appelée 
à travailler très près de la surface. 


Un de nos lecteurs a ainsi pu constater que, 
quand de la confiture tombe sur une disquette, 
ce n'est bon (pas la confiture, bien sûr) ni pour 
la disquette (on s'y attendait) ni pour le lecteur 
(ça, c'était moins évident). Il a fallu déconfiturer 
le lecteur en atelier. 
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‘D'$BEGIN 
ST?=SCINDI SIND: =IND+1; 
IF SIz’+° THEN FENCOLORÇCHHITE) ELSE FENCOLOR(NONE) ÿ 
END $ 
*Z'$EEGIN 
FENCOLORCNONE) ; 
TURNTOCO); 
MOVETO(140,96) 
END 
‘F'SBEGIN 
MOVETO(ORDCSECIND 1) ; ORDCSCIND+11)); 
IND$=IND+2 
END $ 
‘S'$EEGIN 
ST =SCINDI SIND: =IND+1; 
IF Sl=/+’ THEN CHARTYFE(10) ELSE CHAKTYFE(S); 
C1+=SCINDI; 
REFEAT 
HCHAR CC 1) $ IND 5 = TND+1 $ C1 5 =SCTINDI] 
UNTIL CL NE es" 
END ; 
‘$'$FEGIN 
TieSCAN(C11,=",°, SCINDI) ; 
IF Xei1 THEN TieSCAN(IL,=°,°, SCIND IT) ; 
IMS=COPYCS, IND, TI) $ TND = IND+T; 
EXECUTION(TIM) 
END ; 


‘x'$BEGIN 
N$=0ORD(SCINDT) $ IND$=IND+1$ 
CieSCANCIL,=", 7, SCINDIT) ; 
XF Læi1 THEN LieSCAN(CIL,=°,/, SCINDT) ;$ 
IMi=COFYCS, IND, TL) SIND =IND+T; 
IMS=CONCAT (VOL, TIM, 4. FIC 05 
CKET-X ) 
RESET (ALEUM; TIM) ; 
IF IORESULT=0 THEN 
BEGIN 
SEEK CALEUM ; N) $ GET CALEUM) $ 
DRAHELOCK(ALEUMS 2: 0:05 159155 TURTLEX; TURTLEY : 10) 
END ; 
CLOSE € ÂLEUM ) 
CXET+X); 
END ÿ 
‘R'$BEGIN 
REF $ =ORD CSCIND 1) $ IND $=IND+2; 





REFEAT 
IF SCI]1=/)’ THEN LIMi=1I; 
t=T+i 
UNTIL (SCI]1=’ ’) OR (I=80); 
LUI =CQFY CS 4 IND 4, LIM-IND) SCT = INDES 
FOR Tizi TO REF DO 
BEGIN 
INDi=1; 
IF INC>1 THEN INCS=INC+1; 
REALISE (TM) 
END ÿ 


SR EE 
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IND£=LTM 
END ÿ 


Cie 


ÉEGIN 
INDICE ?=GETINDCFUJET) SIND =1; 
IF INDICE=0 THEN EXIT(EXECUTION)!; 
REALISE (LISTEACINDICE] , INSTRUC) 
END $ 


ÉEGIN 
FRINFOSNCOMS =" SNIMAS =" "3 
ÉCRAN, ADRESSE =:89132; 
REFEAT 
FAGE (OUTFUT ) ÿ 
FOK Ti=1 TO 6 DO 
BEGIN 
HRITEC" FO0RTUE "1 
IF TI MOD Z2=0 THEN WRITECNORM) ELSE WRITECINV) 
END $ 
MESSAGE (CS /-—— TEXTES ==) SNRITECINV, C',NCOM, ’1° , NORM) $ 
GOTOXY(10,7)/WRITE(C’/C11 CHANGE DE FICHIER’) 


Æ 
OS 

ver 
sm 
h = 
re 


GOTOXY{10,8) $WHRITE(’C21 EDITE UNE LIGNE’); si 
GOTOXY(10,9)SWRITE(C’C31 LECTURE D’’UNE LIGNE’); Ée 
GOTOXY(10,10)$WHRITEC/C41 CATALOGUE’); Fe 
MESSAGEC12,’/-- GRAPHIQUES --—’)3 + | 
GOTOXY(10,14)/HRITE(C’C51 EFFACE LA FAGE’)$ | 


GOTOXY(10,15)$NRITEC/C61 VISUALISE LA PAGE‘); 
GOTOXY(10,16)}WRITE(/C71 SAUVE LA FAGE‘)$ 
GOTOXY(10,17)$WRITE(/C8] CHARGE UNE FAGE‘); 
GOTOXY(10,18) MRITE(/C91 EXECUTE UN TEXTE‘); 
GOTOXY(10,20)$WRITE(/C01 QUITTE’); 
GOTOXY (3,22) $WRITEC/OFTION C 1/,B8,E9); 
CA: =PRENCAR(L/0/,,/91); 
CASE CA OF 
‘1'3FRENLISTE} 
‘2'3IF NCOM<>’’ THEN EDITE; 
‘3'3IF NCOM<>/’ THEN LIRE! 
‘423IF NCOM<>’’ THEN CATALOG; 
‘S/3#BEGIN INITTURTLE$TEXTMODE END; 
‘6/#BEGIN GRAFMODE;FRENRETURNS TEXTMODE END} 
‘7'IIF FRENIMACNIMA) THEN 
IF NOT ECRIMAGE(NIMA) THEN ALARME C’FAS D'ENREGISTREMENT‘)! 
‘8'#IF FRENIMACNIMA) THEN 
IF NOT LIRIMAGECNIMA) THEN ALARMEC/FAS DE LECTURE’)! 
‘9':BEGIN 
MESSAGE(22, NOM DU TEXTE ?‘); 
FRENCHAINE (10,C/4/,4/2Z/1, PROJET) $ 
IF FROJET£>’’ THEN 
BEGIN | 
MESGAGE (22, DESSIN ‘)3MHRITECINU,FROJET,NORM,/ EN COURS’); 
INC? «1 $EXECUTIONCFROJET ) 


HT 
Es 1 


END 
END ÿ 
END 
UNTIL Câz=’0’ 
END + 
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Mouvements à 


Calculer 


LA GESTION DE FICHIER TOUS AZIMUTS 


Un seul programme, un très grand 
nombre d'applications 

Avec ce logiciel, votre APPLE dis- 
posera de pouvoirs exceptionnels; 
vous vous en servirez pour suivre 
vos clients, pour établir vos prévi- 
sions, pour mettre à jour vos tarifs, 
pour gérer vos commandes, vos arti- 
cles en stocks, pour calculer la paie 
de vos employés ou simplement 
pour tenir votre collection de tim- 
bres ou de livres. 


Une très grande facilité de mise en 
œuvre 

Nul besoin de connaître l'informa- 
tique, nul besoin d'utiliser un voca- 
bulaire de spécialiste: pas de 
codifications inutiles; les instruc- 
tions sont simples, naturelles et en 
français. 


Définissez vous-même votre modèle 
de fichier 

Chaque rubrique devient automa- 
tiquement un critère de recherche et 
de classement ; vous pourrez à tout 
moment redéfinir votre modèle, 
ajouter ou retrancher des rubriques 
sans avoir à réécrire les données. 


Retrouver vos dossiers de multiples 
façons 

Vous pouvez les rechercher à par- 
tir de n'importe quelle rubrique, 
retrouver tous ceux répondant à 
certaines caractéristiques selon une 
combinaison de critères (jusqu'à 12 
simultanément) tels que “égal”, 
“plus grand que”, “plus petit que”, 
“différent”, “compris entre”. 


Faites toutes sortes de calculs et 
profitez de votre imprimante 

Vous pourrez présenter les infor- 
mations de votre choix et les résul- 
tats de vos calculs sous forme 
d'étiquettes ou de rapports (jusqu'à 
13 colonnes), dans n'importe quel 
ordre alphabétique, numérique, 
chronologique. 


Avec CX Multigestion, vous travail- 
lerez très vite et vous irez très loin 

Comparez avec d'autres pro- 
grammes: vous retrouvez n'importe 
quel dossier, vous dressez un état 
combinant classement et sélections 
en quelques secondes; en outre, CX 
Multigestion n'est que le premier 
programme d'une série de logiciels 
de gestion tous compatibles entre 
eux. 


Demandez à votre boutique informatique une démonstration de CX Multigestion et vous serez vraiment émerveillé :sielle ne l'a 
pas en stock, demandez lui de nous appeler au (1) 538.98.87 ou écrivez nous à: CONTROLE X - Tour Maine-Montparnasse, 33, av. 


du Maine - 75755 Paris Cedex 15 


Apple est une marque déposée de Apple Computer Inc. 








Notions de base : 


routine d'INPUT généralisé 


Il y a fort à parier que beaucoup des 
programmes que vous écrivez, ou 
envisagez d'écrire, comportent, à un 
moment quelconque, une phase 
d'entrée de données au clavier. Cer- 
tes, une simple suite d'instructions 
INPUT peut réaliser ce traitement, 
mais ce n’est ni la solution la plus 
agréable à l'œil (présentation de 
l'écran au moment de la saisie), ni la 
plus sûre à l'usage (contrôle des 
données entrées). 


Même si vous êtes le seul utilisateur de 
vos programmes, il peut vous être utile 
de disposer d’une routine « d'INPUT 
généralisé » qui assure une gestion cor- 
recte de l'écran et vérifie que les don- 
nées entrées correspondent bien à ce 
qu'elles devraient être. 


Principes généraux 


Pour faciliter l'analyse de la routine pré- 
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sentée ici, précisons les objectifs que 
nous voulons atteindre. 


1. L'écran doit indiquer clairement les 
informations à fournir et assigner à cha- 
cune d'elles une zone de rentrée indivi- 
dualisée. 


2. Il doit être possible de se déplacer 
sur l'écran, vers le haut comme vers le 
bas, pour modifier les différentes don- 
nées avant toute validation. 


3. Le contrôle des données doit s’effec- 
tuer caractère par caractère au moment 
de la frappe (pas de lettres dans une 
information numérique, pas de carac- 
tères de contrôle ou susceptibles de 
perturber les traitements ultérieurs….). 
De plus, la longueur des informations 
ne doit pas dépasser le maximum com- 
patible avec les autres traitements. 


4. Après validation, les données doi- 
vent pouvoir être modifiées ou consul- 
tées facilement. 





Gérard Michel 


Notre routine repose en conséquence 
sur les principes suivants (se reporter au 
programme BASIC pour identifier les 
variables) : 


1. Chaque information est définie par 
un libellé (LI$), la position du premier 
caractère à rentrer (2V% et ZH%), et 


la longueur maximale de la réponse 
(ZL%). 


2. La touche RETURN permet de ter- 
miner l'entrée d’une information et de 
passer à la suivante. La touche ESC 
permet de remonter aux données pré- 
cédentes ou de revenir à la phase de 
traitement précédente. 


3. On distingue trois types de don- 
nées : alphanumérique (type 1), 
numérique (type 2) et date (type 3). 
Chaque information est caractérisée 
par son type (TY%). 


4. Des variables annexes permettent 
de réaliser l'affichage des données pour 


Un ensemble de programmes portant sur la comptabilité, dédié aux 


professionnelles ou privées. 







Envoyer ce bon 
accompagné 

de votre règlement à 
P.S.I. DIFFUSION 

ou, pour la Belgique et 
le Luxembourg, à 
P.S.I. BENELUX 


Téléphone (2) 345.08.50 


au Canada 


En Es le 
PS1 Pberca SCE Inc 
3449 rue Saint-Denis 
Montréal Québec H2X3L1 
Tél (514) 843 76 63 


Ferraz 11 


Madrid 8 
Tél. : 247.30.00 
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à) petites entreprises, professions libérales, artisans, commerçants, bref 
“\ aux amateurs d'informatique soucieux de la gestion de leurs affaires 


C'est un outil complet et pratique à utiliser qui, après un rappel sur 
la comptabilité générale donne des exemples concrets : édition 
des livres-journal, grands livres, balances, bilans, calculs des 


ratios ainsi qu'un programme spécial intéressant l'adaptation 
et la personnalisation du Plan Comptable. 


160 pages - 102,00 FF/785,00 FB 


ET pesonnon Trou] nr 


(par avion ajouter 8 FF (75 FB) par hvre) 


- PRENOM 

















re (OE 


DÉMARRER 


TURLES 
ab REX pi 





modification ou consultation (ME, X, 
B%). 


Analyse et utilisation 
de la routine 


Le contrôle des données entrées, 
caractère par caractère, constitue le 
cœur de la routine. Il est assuré par un 
petit programme en assembleur, ce qui 
permet de : 


— faire l'économie de nombreux tests 
en BASIC sur les codes ASCII des 
caractères, tout en accélérant le traite- 
ment ; 


— bénéficier facilement de la lecture 
« active » par la flèche de droite et de 
garantir que les données stockées dans 
les variables sont identiques à celles qui 
apparaissent sur l'écran ; 

— illustrer par un exemple simple l’uti- 
lisation de l’assembleur et son interac- 
tion avec BASIC, ce qui répond aux 
vœux de nombreux lecteurs concernés 
par cette rubrique « Notions de Base ». 


Opérons donc 
à cœur ouvert : 


Dans les mémoires $28 et $29 est stoc- 
kée l'adresse de la première colonne de 
la ligne courante de l'écran (celle où se 
trouve le curseur) dans la page TEXT 
(zone de mémoire où sont rangés les 
caractères qui composent l'écran en 
mode TEXT). L'adresse $28 est ici 
repérée par le symbole ADR. 

En $24 est stockée la position horizon- 
tale du curseur (0 à 39), symbolisée par 


H. 


En $9, nous stockerons le nombre de 
caractères entrés (LC). 


$6 (E) servira de « drapeau» au 
BASIC pour une éventuelle remontée 
dans l'écran (touche ESC). 


En $7 (LO), nous rangerons la lon- 
gueur maximale autorisée pour la 
réponse. 


En $8 (TY), stockage du type de 
l'information. 


$311 (ZY) est l'adresse de début de la 
zone où l'on stockera les caractères 
entrés au clavier. Cette zone se trouve 
dans une « région » libre de l'Apple 
($300 à $3CF). On aurait pu stocker à 
partir de $300, ou après la routine elle- 
même, par exemple. 


$FDOC est l’adresse de début du 
sous-programme du moniteur qui 
fait clignoter le curseur et attend 
qu’une touche soit frappée. Après 
exécution, le code-écran du carac- 


tère entré se trouve dans l’accumula- 
teur (vous pouvez vous reporter aux 
pages 44-45 de Pom'’s numéro 4 ou 
à la page 7 du « Manuel de Réfé- 
rence Apple Il » pour avoir la liste 
des codes-écran des différents carac- 
tères. 


$FDED est l'adresse de début du sous- 
programme du moniteur qui affiche à 
l'écran le caractère dont le code-écran 
se trouve dans l’accumulateur. 


Lignes 12 à 16 : nettoyage de la zone 
de stockage ($80 est le code-écran du 
caractère nul). En BASIC, ces instruc- 
tions s’écriraient : 

12 A$="” 

13 X=LO 

14 ZYS$(X) = AS 

15 X=X—1 

16 IF X =0 THEN 14 

Lignes 17 et 18 : E=0. 

Ligne 19 : saisie d’un caractère. Rap- 
pelons que le résultat se trouve dans 
l'accumulateur, d’où l'emploi de l'ins- 
truction CMP dans les tests sur la valeur 
du caractère. 


Lignes 20 et 21 : si c'est un RETURN, 
on saute à la fin de routine (FINI). 


Lignes 22 et 23 : X sert à compter le 
nombre de caractères entrés (à partir 
de 0). Si X = LO, on saute à SUITS. 
Lignes 24 et 25 : si le caractère est une 
« flèche de gauche », on saute à 
RETOUR. 

Lignes 26 et 27 : on a entré un carac- 
tère de trop. La routine-moniteur dont 
l'adresse de début est FFBDD émet un 
« beep » et l’on retourne ensuite à la 
saisie de caractère. Ainsi, une fois la 


Liste en assembleur 
Lisa 1.5 


1 OKG: #91E6 
L QE #800 
3  ADK EFZ $28 

AE of F2 324 

co 3 5 A À 

en EFZ #6 

7 CED EFZ #7 

© il Gi à EFZ #8 
ER: | EQU #$311 
Or GET EQU $FDOC 
à Ro ELU) EQU $FDED 
Le LDA 4+#$80 
13 LDX LO 
14" DEP STA ZY;,X 
15 DEX 
lé EFL DEF0 
LA LDX #0 
18 STX E 


20 


DEFI 


SUITS 


SUIT 1 


SUITZ 


RETOUR 


SUIT3 


SUTT 4 


SUXT7 


SUTTé 


SUITS 


FINI 


F$AC 
SUIT2 
AE 
SUITS8 


* A$AE 


469$ 


= SUITA 


25 
$SFECI 

H 

(ADR) ,Y 
SUTTS 


* HHAO0 


DEF'1 
Æ$DE 


DEP 


TY 

#1 
SUITé 
FATF 


S SULT/ 


LS se 


LC 
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longueur maximale atteinte, seuls 
RETURN et la flèche de gauche sont 
acceptés. 

Lignes 28 et 29 : si ce n'est pas ESC, 
on saute à SUIT1. 


Lignes 30 et 31 : si ESC n'est pas le 
premier caractère saisi dans la zone, on 
saute à SUIT1 (cet ESC sera ensuite 
refusé). ; 
Lignes 32 à 34: on positionne le 
« drapeau de remontée » (E=9) et on 
sort de la routine. 


Lignes 35 à 38 : si ce n’est pas une vir- 
gule, on saute à SUIT2. Sinon, on la 
remplace par un point ($AE) et on 
saute à SUITS. En effet, la virgule peut 
poser des problèmes si les informations 
sont ensuite stockées puis relues par 
INPUT sur disquette (EXTRA IGNO- 
RED). 


De plus, pour les informations numéri- 
ques, il faut traduire la « virgule fran- 
çaise » en « point anglo-saxon ».. 


Lignes 39 et 40 : si c’est un point, on 
saute à SUITS. 


Lignes 41 et 42 : si ce n'est pas une 
« flèche de gauche », on saute à 
SUIT3. Ce test n’est pas redondant 
avec celui de la ligne 24, puisque nous 
sommes maintenant dans le cas où la 
longueur maximale n’est pas atteinte. 


Lignes 43 et 44 : si la flèche de gauche 
est le premier caractère entré dans la 
zone (X=0), on saute à SUIT3 (elle 
sera ensuite refusée par la routine). 


Lignes 45 à 47 : si la flèche n'est pas le 
premier caractère, on diminue de 1 le 
nombre de caractères entrés (DEX), on 
recule le curseur (DEC H) et on 
retourne à la saisie de caractère (JMP 


DEP). 


Lignes 48 et 49 : si ce n’est pas une 
« flèche de droite », on saute à SUITA. 


rieur à « SPACE » (caractère de con- 
trôle), on le refuse. 


Lignes 57 et 58 : si le caractère est 
supérieur à Z, on le refuse. 


Ligne 59 : la suite de l'analyse dépend 
alors du type de donnée, que l’on 
charge dans le registre Y. 


Lignes 60 et 61 : si c'est une donnée 
alphanumérique, on passe à SUITE. 


Lignes 62 et 63 : si le caractère est 
supérieur ou égal à ”/”, on passe à 
SUIT7. 

Lignes 64 et 65 : étant donc inférieur à 
”/”, on le refuse s'il est différent de 


»” , 


Lignes 66 et 67 : s'il est supérieur ou 
égal à ”:”, on le refuse. 


Lignes 68 à 71 : on refuse les guille- 
mets s'ils sont en premier caractère 
(problèmes ultérieurs possibles avec les 
ordres PRINT). 


Ligne 72 : le caractère étant mainte- 
nant accepté, on l'affiche à l'écran. 
Ligne 73 : on le stocke dans la zone 
réservée à cet usage, dans la « case » 
numéro X. 


Lignes 74 et 75 : on passe au caractère 
suivant. 


Lignes 76 et 77 ; on stocke le nombre 
de caractères entrés ; fin de routine 
pour retour au BASIC. 

L'interaction entre ce programme en 
langage-machine et le programme 
BASIC est assurée dans le sous- 


programme BASIC des lignes 149 à 
169. Celui-ci est appelé pour chacune 
des informations à fournir. Nous n’en 
commenterons que les points qui inté- 
ressent directement notre sujet. 


Ligne 149 : ME =2 ou X= 1 signalent 
que l’on veut un affichage du contenu 
de la variable. B% =8 assure une sor- 
tie de la routine directement après cet 
affichage. 


Ligne 150 : on transmet (instructions 
POKE) à la routine-machine les para- 
mètres de l'information à entrer, puis 
on lance son exécution (CALL 
37350). À noter que l'on place à 
l'adresse 36 ($24) la valeur H-1 et non 
H, car BASIC fait ses HTAB de 1 à 40, 
alors que le moniteur calcule de 0 à 39. 


Ligne 154 : nous sommes déjà de 
retour au BASIC ! Les résultats de la 
saisie de caractères se trouvent aux dif- 
férentes adresses définies dans les 
lignes 4 à 9 de la routine-machine. 
L'instruction PEEK nous permet de les 
récupérer. E=9 signale que la touche 
de fonction ESC a été utilisée et que 
l'opérateur désire «remonter » sur 
l'écran. 

Ligne 156 : LC=0 si seul RETURN a 
été entré. En conséquence, on quittera 
le sous-programme en laissant le con- 
tenu de la variable inchangé. 

Ligne 158 : BASIC récupère mainte- 
nant les différents caractères stockés à 
partir de l'adresse 785 ($311) et 
reconstitue la donnée dans son ensem- 


Récapitulation du code binaire 


JICALL-151 
Xx91E6.926F 


SiEé-— À9 80 








Lignes 50 à 54 : si par contre c’est une 
flèche de droite, on place la position 
verticale du curseur (stockée en $25 
par le système) dans l’accumulateur. 
La routine qui débute en $FBCI1 va uti- 
liser cette valeur pour calculer l'adresse 
de la première colonne de la ligne cou- 
rante qu’elle range ensuite en $28 et 
$29. 


On transfère alors la position horizon- 
tale du curseur (H) dans Y et on va lire 
dans la page TEXT le caractère qui se 
trouve à la position H dans la ligne V 
dont le stockage dans cette page com- 
mence à l'adresse contenue dans 
ADR, c'est-à-dire le caractère sur lequel 
« passe » la flèche à l'écran. On saute 
ensuite à SUITS (affichage). 


Lignes 55 et 56 : si le caractère est infé- 


91E8- À6 07 9D 11 03 CA 10 FA 
91F0- AZ 00 86 06 20 QC FD C9 
ViFe 9D 0-72 E4 07 70 4 C9 
9200- 88 F0 
9208- 91 C9 96 D0 09 E0 00 DO 
9210- 05 À9 09 85 Dé 40 C9 AC 
9218- D0 05 A9 AE 4C 63 92 C9 
7220- ÀE F0 40 C9 88 DO 04 E0 
22285:00 F0 06CASCE 24. 4C FA 
9230: 91,.C9.95 D0 DC "AS 25 20 
9238- C1 FE À4 24 B1 28 4C 63 
9240- 92 C9 À0 90 AF C9 DE E0 
9248- AE À4 08 CO 01 FO OC C9 
9250- ÀF E0 04 C7 AD DO 9D C9 
9258- EA E0 99 E0 00 D0 04 C9 
?260- AZ F0 9120 ED FD 9D 11 
9268- 03 ES 40. F#,91:86:09 60 
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ble (ZZ$). A noter que l’on enlève 128 
aux codes lus en mémoire pour retrou- 
ver les codes ASCII standards du 
BASIC (ceux des fonctions ASC et 
CHR$ - Cf. pages 138 et 139 du 
Manuel de Référence Applesoft). 


Lignes 163 à 167 : on vérifie que la 
date correspond bien au format voulu, 
à savoir JJ/MM/AA. 


Le reste du programme BASIC consti- 
tue un exemple d'utilisation de 


Liste du programme BASIC 





l'ensemble « routine-assembleur » plus 
« routine BASIC ». Nous vous laissons 
le soin d'en conduire vous-même 
l'analyse et d'en déduire la façon d'inté- 
grer cet « INPUT généralisé » dans vos 
propres programmes. 


En guise de conclusion, nous lançons 
un appel au peuple ! Cette rubrique 
« Notions de Base » est destinée aux 
lecteurs qui partent à la découverte de 
leur Apple, et bien souvent de l'infor- 
matique elle-même. Afin que nous 


puissions l'orienter dans un sens favo- 
rable au plus grand nombre, n'hésitez 
pas à nous écrire pour nous signaler les 
problèmes que vous voudriez voir trai- 
tés. 

Selon la nature de votre courrier, nous 
répondrons par des articles du même 
type que celui que vous venez de lire, 
ou par une série de courtes explications 
sur certains points très précis. Au plaisir 
de vous lire. 


ILIST 
4 TO 25005 NEXT 5 HTAE Lé CALL 
1 HIMEMS 37340 — G689f KETURN 
5 D = CHR (4)! FRINT D#"ELOAD 400 DATA DONNEE ALFHA 1,DONNEE 
INFUT,0EJ"$ GOTO 400 ÀLFH& Z,DONNEE NUM 1,DO0ONNEE 
70 VTAE 21% HTAE 15 INVERSE $ FRINT NUM Z,DATE 
ZM$S}?? NORMAL ? INEUT " ? "357 #10 DATA 1,4,17,20,1,6,17,10,2; 
#5 VTAE 214 CÂALL - 86852$ = 8,156: 2r10; 195995312758 
EEPIM ZT) TE Z60s UOENR 420 DATA ENREGISTREMENT CONFIKM 
£$ = N!" THEN  KETURN E,ENTREE, 4AFFUYER SUR ‘RETURN 
71 GOTO 70 ‘ AFRES LECTURE ; MODIFICATION 
80 VTAE VS HTAE 15 CALL — 868 DATE INCORRECTE ; CONSULTATIO 
81 INVERSE $ FRINT Z#5f NORMAL à: N 
FETURN 499 FOR LI = 1 TO 55 READ LI$(T): 
90 TEXT : HOME $ HTAEB 20 -— LEN NEXT ? FOR I = 1 TO S? KEAD 
(Z$) / 21 INVERSE $ FRINT Z$ MAC, ZUACENL ZHT OTIEZLA CLS 
? NORMAL ? RETURN NEXT $ FOR TZ = 1 TO 3% KEAD 
14%  VTAE VS HTAE H5 FRINT LEFTS$ MESCT),T$CT)5 NEXT 
(FO$S,LO)" 155 UVTAE VS HTAE 440 FO0$ = "osseuse 
HS IF ME = 2 OR X = 1 THEN FRKINT resserre." 
ZY$LL)$ IF EX = 8 THEN 168 S00"E = 14 FOR I = 1 T0 S:ZY#CLI) = 
150 VTAE VS FOKE 8,TY: FOKE 36,H SMÉENEXT 
LÉ MAUREN CDMEALEL 57350 510 Z$ = TH(C)t GOSUE 9O$EX = 6 x 
154 LC = FEEK (9)$E = PEEK (6)! (EL AD FORT STD S  AUTÉE 
LIFE = 9 THEN RETURN ZUX(IDS HTAE 1? FRINT LI$(T) 
156 22% = MU CALL — 868? IF LC = HARUUT NEXT Xl Ke CAE D} 
0 THEN 168 ME = 01DX = Li = 23925 = ! 
LA TORRENT DS ECS AMEN IFEERTI ESC’ RENVOIT AU NIVEAU GUFE 
Fan een 20 NERO LEE FAT ROC LT CR RIEUR'"$ GOSUE 60 
CHRK#& (Z)$5 NEXT 520 FOR LL = DX TO SiTY = TYX(CLL 
LOTS ST OMEIENURETURN DU = ZUX(LL) IH # ZHXCLL) ÉLO 
163 IF MIDS (2Z2$,2,1) = "/" THEN = ZLX(LL) 
LATE SONDE ET 778 530 E = 0! GOSUE 149% IF E # 9 AND 
164 IF MIDS (Z2$#,5,1) = "/" THEN LL = 1 THEN LL = 5° NEXT * GDOTO 
ZLS, = LEFTROCZLA EU T 600 
RIGHTS (Z2Z#,4) 540 IF E = 9 AND ME = 0 THEN L4 = 
TOS LP OPENLEZZS 0 5 6 THEN 2% LSle 
# MES(3)5 GOSUE 190: GOTO 1 550 IF E = 9 THEN LL = LL -— 25ME 
49 = 2? GOT0O 570 
léé Z4 = VAL © MIDS (Z2Z$,4,2))% IF S60 ZYSCLL) = ZZSIME = 2 x (LL < 
VAL € LEFT$S (ZZ$#,2)) > 31 OR Ar 10 
24 % 12 OK Z4 X VAL © RIGHT# 570  NEXT 2LX = 0% IF C = 3 THEN 
CZ2#:24)) # 0 THEN Z$ = ME Z$ = MES(2)5V0 = 215 GOSUE 80 
$(3)? GOSUE 1905 GOTO 149 t GET Zé: GOTO 500 
167 KETURN 580 ZM = ME$(1)5 GOSUË 705 IF 24 
168 IF ME = 2 OR X = 1 THEN VTAE = UN" THEN X = 1554 = O!DX = 
VS HTAE HIZ2$ = ZY#(LL)$ FRINT 5? GOTO 520 
ZZ%: SPCC LU = : LEN (ZZS)9 590 C = C + 1? GOTO 510 
169  KETURN 600 LX =°0? IF C > L THEN EC = C -— 
190 VTAB 215 HTAE 15 CALL - 868 15 GOTO 510 
$ INVERSE à FOR Z = 1 T0 150 610 Z$ := "TRAITEMENT FRECEDENT"'? GOSUE 
LL = FEEK Cn-. 1480936):"NEXT 90: FOK Z = 1 TO 2000? NEXT 
5 FRINT Z#5: NORMAL $ FOK Z =  GOTO 500 
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Ergonomie des programmes 


Principes généraux 

Entre deux «bons» programmes, 
c'est-à-dire écrits sans erreurs, donnant 
les résultats attendus, avec des temps 
de travail corrects, etc., l'un peut être 
vraiment bon, et admis comme tel par 
ses utilisateurs, et l’autre rejeté. 


La différence tient souvent dans ce qui 
peut apparaître comme mineur : la 
présentation des écrans et la facilité 
d'utilisation des claviers (ce dernier 
point étant étroitement lié au matériel 
utilisé). Nous utiliserons le vocable 
« ergonomie des programmes » pour 
désigner tout ce qui, dans un pro- 
gramme, est fait pour faciliter la relation 
entre l'utilisateur et l'impersonnel 
« système ». 


La première chose qu'il convient de 
noter est la suivante : hormis quelques 
personnes très averties, avant déjà eu 
maintes occasions de travailler en utili- 
sant un dialogue écran-clavier, le futur 
utilisateur ne saura pas expliquer ce 
qu'il veut, ni choisir en connaissance de 
cause entre des propositions qu’on lui 
fera, même étayées de fac-similés sur le 
papier : car l'écran «bouge», le 
champ de vision n’est pas le même, les 
contrastes diffèrent, les jeux de caractè- 
res sont différents, toute la dynamique 
du dialogue s’efface derrière quelques 
schémas statiques. 


Une seule solution : simuler le futur 
outil de dialogue, quasiment à l’identi- 
que si cette simulation se fait sur le 
matériel qui servira plus tard de support 
à l’application réelle ; au plus près si, 
par exemple, on simule sur micro- 
ordinateur une application qui utilisera 
dans la réalité un gros système multi- 
terminaux. 


Mais il faut bien se rendre compte 
qu'on ne pourra avancer autrement 
que pas à pas ; la simulation du dialo- 
gue complet ne sera donc possible que 
quand l'étude sera suffisamment avan- 
cée, mais pas trop, afin que peu d'’élé- 
ments soient figés d'avance. Il peut 
donc être intéressant de réaliser une 
première approche grâce à une 
« pédagogie du dialogue écran- 
clavier », appuyée sur un programme 
de simulation permettant de mieux 
montrer aux futurs utilisateurs ce qu'ils 
peuvent attendre d’un tel dialogue. 
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Présentation 
du programme 


C'est un programme ayant cet objectif 
que nous vous proposons. Il fait « défi- 
ler » des genres d'écrans variés, et per- 
met de tester des commandes de 
divers types (il est bien sûr conçu pour 
Apple Il). 


Le premier écran (instructions 5000- 
5040) demande l'entrée de deux don- 
nées alphanumériques. Il émet une 
seule exigence : au moins 1 caractère. 
Il avertit d'une frappe RETURN trop 
hêtive par un message clignotant (un 
traitement des erreurs permettrait en 
outre d'afficher un message si le fichier 
demandé ne se trouvait pas sur le dis- 
que : notre programme complet com- 
prend cette option). 


Le deuxième écran (instructions 5050- 
5095) propose 3 choix (4 avec l'arrêt) 
et demande une réponse numérique. 
Toute réponse numérique hors four- 
chette amène un message clignotant (il 
aurait également été possible de saisir la 
réponse en alphanumérique, pour évi- 
ter le message système « REENTER » 
en cas d'entrée d'une réponse non 
numérique. 


Quel que soit le choix effectué (sauf 
arrêt), l'écran suivant (instructions 
5200-5500) propose la liste des pro- 
duits (bien entendu, dans une applica- 
tion réelle, il faudrait procéder en « cas- 
cade » à partir de groupes de produits). 
La réponse se fait en déplaçant le cur- 
seur sur l'écran. Sur l'Apple Il, i 
n'existe pas de flèches de déplacement 

} et ; , on utilise donc les flèches 
—— et — pour monter et descendre. 


RETURN provoque la recherche du 
produit voulu. La frappe de RETURN 
sur la première ligne vierge permet de 
sortir de l'option. C’est une règle géné- 
rale : ne pas construire d'écran dont il 
soit impossible de s'évader. 


Arrêtons-nous un instant sur cet usage 
de la touche RETURN : elle est nor- 
malement utilisée sur l'Apple Il pour 
marquer la bonne conclusion d’une 
action, une entrée de données par 
exemple. Il s’y attache ainsi, dès qu’on 
a acquis quelque habitude de 
l'Apple Il, un sens positif, d’approba- 
tion, d’acquiescement. C'est ici le cas 
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quand, après avoir déplacé le curseur, 
on se trouve en bonne position : OUI, 
c'est bien ce qu'on voulait. 


A l'opposé du clavier, la touche ESC 
peut être programmée pour jouer un 
rôle négatif, de refus, d'erreur. Le 
choix entre l'alternance RETURN et 
ESC passe très vite dans les mœurs. 
Ces touches sont utilisées pour confir- 
mer ou infirmer la suppression d'un 
article ou le souhait de recherche ou de 
création d'un article (sous-programme 


500-550). 


Regardons maintenant l'écran de saisie 
des données relatives à un produit (ins- 
tructions de 2000 à 2350 et sous- 
programme 300-309). Là encore, 
RETURN trouve son sens d'acquiesce- 
ment : on l'utilise pour conserver la 
donnée affichée sur l'écran s'il y en a 
une. 


Des contrôles sont réalisés en outre sur 
la longueur des zones et sur la vraisem- 
blance des données numériques. 


La suppression d’un article se fait d’une 
façon un peu artificielle par CTRL-A : 
une double touche pour éviter toute 
fausse manœuvre. De plus, une contir- 
mation est demandée. Il est particuliè- 
rement important pour la tranquillité de 
l'utilisateur qu'une manœuvre risquant 
de détruire tout ou partie d’un fichier ne 
puisse pas être effectuée par simple 
effleurement d'une touche. 

À noter que l'entrée d’un nouvel article 
se fait en deux stades : d'abord en 
choisissant sur l'écran des produits une 
ligne vierge (y positionner le curseur, 
puis RETURN ensuite, en entrant les 
données, y compris le libellé). 


N.B. Dans l'exemple proposé, nous 
n'avons pas programmé l'option « trai- 
tement ». 


Aspects ergonomiques 
généraux 

D'une façon plus générale, quelles sont 
sur l'Apple Il les possibilités de jouer sur 
l'ergonomie des programmes lors du 
dialogue utilisateur-système ? 


1 - Le clavier 


Nous avons déjà vu un exemple de 
gestion du clavier avec l'utilisation des 
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trois touches : RETURN, ESC et barre 
d’espacement. 


Une lacune importante de l'Apple Il est 
l'inexistance des flèches de déplace- 
ment vertical du curseur. Quand le 
besoin se fait sentir de déplacer le cur- 
seur dans les 4 dimensions, il existe 
deux possibilités : 

— ou bien désigner des touches alpha- 
bétiques pour les 4 mouvements (ex. : 
les touches I, J, K, M utilisées en pro- 
grammation après ESC). C'est très arti- 
ficiel ; 

— ou bien n'utiliser que les deux tou- 
ches de déplacement horizontal et en 
inverser la signification à l’aide d’une 
touche jouant le rôle de bascule (grâce 
à la basse d’espacement, dans le cas du 
programme Visicalc). 


Dans les éditions de type latin (de gau- 
che à droite et du haut vers le bas), on 


a alors : 

e une flèche d'avance : ——, bas, 
droite 

e une flèche de recul :-=—, haut, gau- 
che. 


Attention à utiliser à bon escient les 
deux types d'entrées, en mode GET 
ou par INPUT (avec le RETURN) : le 
GET a un aspect définitif et doit être 
suivi de contrôles, alors que la possibi- 
lité de retour arrière avant un RETURN 
a souvent un aspect sécurisant. En 
revanche, le GET permet d'utiliser 
toute touche avec une signification par- 
ticulière à l'application considérée, en 
particulier d’ailleurs d'autoriser l’utilisa- 
tion comme en mode INPUT des flè- 
ches pour la correction. 


2 - L'écran 

D'abord, n'y point trop écrire ; sauf 
pour les libellés qui reviennent souvent, 
et qu’on connait vite par cœur ; l'écran 
est alors un rappel. Eviter des textes 
trop longs : si possible, n’écrire qu’une 
ligne sur deux. Une page entière de 


consignes sera généralement plus utile 
sur une feuille d'instructions. 


Ensuite, on peut utiliser toutes les pos- 
sibilités de gestion des caractères : flash 
et inverse, titres encadrés, ralentisse- 


ment de la vitesse d'inscription. Si on 
travaille en graphique, utilisation ration- 
nelle de la couleur et des graphiques. 


Ne pas en abuser : on remarque au 
premier coup d'œil un message cligno- 
tant isolé. On ne remarque plus rien si 
on voit trop souvent des flashes, des 
textes inversés et autres « fantaisies ». 


3 - Le son 


Vous disposez d'une part de la « clo- 
che », d’autre part de la possibilité de 
programmer des sons plus complexes, 
voire de la musique. 


A utiliser à bon escient. Ne pas oublier 
que pour l'utilisateur quelque peu habi- 
tué à l'Apple II, la cloche simple signifie 
le plus souvent qu'une erreur vient 
d'être remarquée par le programme : 
ne pas utiliser le même son pour mar- 
quer une approbation |! 


Penser aussi à la « pollution sonore » : 
un bruit attirant l'attention de temps en 
temps, sur une erreur par exemple, 
peut être utile. Une trop grande abon- 
dance de messages sonores devient 
vite iritante, et donc inefficace. 


Aspects ergonomiques 
spécifiques 


Les observations qui précèdent sont 
valables pour tous les programmes. 
Chaque programme particulier peut 
posséder ou non des vertus ergonomi- 
ques liées au contexte dans lequel 
opère l'utilisateur. Nous n’entrepren- 
drons pas d'en faire un recensement 
exhaustif, mais quelques points méri- 
tent d'être cités, par exemple : 


— si les entrées écran émanent d’un 
document, il est nécessaire qu'elles 
soient effectuées dans l’ordre normal 
de lecture du document ; 


— si elles résultent de plusieurs docu- 
ments, épuiser, sauf impossibilité abso- 
lue, les informations provenant d’un 
document avant de passer au suivant ; 


— même chose si certaines informa- 
tions apportées par l'écran doivent être 


recopiées, par exemple pour compléter 
un imprimé ; 

— pour les graphiques, calculer les 
échelles de façon à mettre en relief les 
phénomènes intéressants à observer, 
tout en évitant des difficultés d’interpré- 
tation des dites échelles ; 


— sil faut utiliser des symboles, des 
formulations inhabituelles, assurez-vous 
qu'ils seront compris sans ambiguités : 
tout le monde ne sait pas ce qu'est une 
échelle logarithmique, ou la représen- 
tation d’un nombre en notation scienti- 
fique ; 

— il en est de même du vocabulaire 
utilisé et des abréviations : ce qui est 
sans équivoque pour le concepteur du 
programme ne l’est pas nécessairement 
pour l'utilisateur ; 


— quand un temps d'attente se pro- 
duit (calcul, lecture de fichier), l’utilisa- 
teur doit être prévenu afin qu'il ne 
s'impatiente pas, ou ne croie pas que 
l'ordinateur est en panne. Trois cas 
peuvent se présenter : 

e on connaît le temps d'attente (par un 
nombre d'articles à lire en fichier, ou de 
boucles de calcul à exécuter) : afficher 
une approximation de ce temps — cf. 
instruction 5035 du programme ; 

e le temps d'attente se décompose en 
phases successives : afficher entre cha- 
que phase un bref message donnant 
l'état d'avancement — éventuellement, 
en profiter pour glisser un message rap- 
pelant à l'opérateur ce qu'il devra faire 
ensuite ; 

e un temps relativement long, mais 
non calculable (c'est en outre le cas du 
garbage collection, pour qui n'utilise 
pas l'approche présentée dans 
Pom's 2), va se dérouler sans phases 
intermédiaires : placer un message 
expliquant ce qui se passe, et fournis- 
sant si possible le délai maximum au- 
delà duquel l'utilisateur sera en droit de 
penser à une défaillance du système. 


Création d’un fichier 
Pour créer un nouveau fichier, faire 


RUN 6000. 


PRINT D$"CLOSEPRODUITS";NOM$: RE 


LECTURE DU FICHIER PRODUITS *#% 
PRINT D$"OPENPRODUITS" : NOMS : ”, LBO": 


JE Tor 
10 D$ = CHR$ (4): DIM LI$(20): GOSUB is TURN 
OO0O:ZERO$ = " 200 REM 
MaUNS =" HE 
": GOTO 5000 210 
100 REM 


##* ECRITURE DU FICHIER PRODUITS #xx 

110 PRINT D$"OPENPRODUITS" :NOM$:", L8O": 
PRINT D$"WRITEPRODUITS":NOMS:",R 
MsCP: PRINT LI$ 

150 FOR I = i TO 8: PRINT CA(I): NEXT : 
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PRINT D$"READPRODUITS":NOM$;",R" 


:CP: INPUT LI$ 
2351 0IFOUIS = "UUTHENL 280 
240 FOR I = i TO 8: INPUT CA(I)s NEXT 
Z80 PRINT D$'"CiLCSEPRODUITS'"':NOMS: RETUR 
N 
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2055 IF A$  } CHR$ (1) THEN Z040 
2056 VTAB 20: PRINT "CONFIRMEZ LA SUPPR 


300 HOME : PRINT "ETARLISSEMENT : ":EeTS 
"DESIGNATION (’CTR ESSION ":: GOSUR 500 
R 


# VTAE 3: SRI: 
VTAE 5: PRI 


L A7 POUR SUPPRIMER)": VTAE 7: BP 20357 IF Z = 13 THEN LI$ = ""s FOR I = 1 
INTRO TO 8:CA(I) = O: NEXT : GOTO 2170 

805: FOR T's NULS 20358 IF Z = Z7 THEN RETURN 

306 VTPAE I + 8: PRINT CG${(I)s:" "ss IF 20359 PRINT " ": GOTO 2036 
CA{I) € } O THEN PRINT CA(I) Z040 IF A$ = "" THEN VTAB 7: PRINT " " 

307 IF CA(I) = © THEN PRINT 5LI$: G0OTO 2080 

308 NEXT Z050 LI$ = A$: IF LEN (LI$) ( 6 OR LEN 

303 RETURN (LI$) } 33 THEN GOSUR 13000: VT 

500  REM AB 8: PRINT ZERO$:: VTAB 7: PRINT 

xx GESTION RETURN ET ESCAPE *xx+% ZERO$:;: GOTO 2030 

509 POKE — 16568,0 2070 VTAE 23: PRINT ZERO$: 

310 PRINT "(RETURN/ESCAPE) "‘: 2080 FOR I = 1 TO 8 

520 GET Z$:Z = ASC (Z$) 2090 VTAE I + 8: HTAE 51: INPUT A$ 

525 IF Z € } 13 AND Z © } 27 THEN PR Z100 IF A$ = "" THEN VTARE I + 8: ATAH 
INT "":: GOTO 5:0 3Z: PRINT CA(I): GOTO 7160 

9530 RETURN 2120 IF LEN (A$) = © OR LEN (A$) } LG 

600  REM (I) OR VAL (AS) } MG(I) THEN GO 

*x% FICHIER NOMS *x%+% SUR 13000: VTPE I + 8: HTAR 5z: P 

610 PRINT D$'"OPENPRODUITS":NOMS:",L80" RINT UN$: GOTO Z090 

620 FOR CP = 1 TO ZO: PRINT D$"READPROD 213530 GOSUR 13100: IF ER = i THEN ER = © 
UITS":NOM#s:",R'":CP: INPUT LI$(CP) | : VTAB I + 8: HTAB 32: PRINT UN$: 
5: NEXT GOTO 2090 

650 PRINT D$#''CLOSEPRODUITS'"':.NOM$S: RETUR Z140 VTAEB 235: PRINT ZERO$::CA(I) = VAL 

. N ; (A$) 

ZOO0  REM Z160 NEXT 

*xx MISE À JOUR DU FICHIER *#+* 2179 GOSUB 300: VTAER ZO: HTAH 1: PRINT 

2005 FOR I = i TO 8:CA(I) = O0: NEXT : G "O.K. POUR ENREGISTREMENT ?': GOS 
OSUE 200 UB 500 

ZOZO GOSUR 300 2210 IF Z = 13 THEN 2240 

2030 VTAR 73 HTAE 1: INPUT A$ 2220 VTAR 22: HTAB 1: PRINT "RETURN POU 
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R CONSERVER ": PRINT "SINON RETAP 
EZ LA LIGNE": GOTO Z020 


Z240 PRINT : GCSUR 100: HOME : PRINT ‘"& 
UTRE ARTICLE 7": GOSUR S00:LIS(CP 
) = LI$ 
2350 IF Z = 13 THEN 5200 
2400 RETURN 
4OOO  REM 
#xx CONSULTATION *x#+% 
4010 HOME : GOSUE 200: GOSUER 590 
4020 VTAR Z4: PRINT "HARRE D’ESPACEMENT 
POUR LA SUITE":: GOSUR 1Z000 
4070 FOR I = 1 TO 8:CA(I) = O: NEXT : H 
OME : PRINT "AUTRE ARTICLE 727": GO 
SUE 500 
4170 IF Z = 13 THEN 5200 
41350 RETURN 
5000  REM MENU 
5005 HOME : VTAEB i: HTAB 7: PRINT "GEST 
ION DU FICHIER-PRODUITS" 
5010 VTAB 6: INPUT "NOM DE L’ETABLISSEM 
ENT ? ":ET$ 
5015 IF ET$ = "" THEN VTAB 9: FLASH : 
PRINT "AU MOINS 1 CARACTERE S5.V.P 
": NORMAL : GOTO 5010 
5019 VTAB 93: PRINT ZERO$ 
5020 VTAR 9: INPUT "NOM DU FICHIER-PROD 
UITS ? ":NOMS 
5025 IF NOM$S = "" THEN VTAH 11: FLASH 
: PRINT "AU MOINS i CARACTERE S.V 
.P. ": NORMAL : GOTO 5020 
5029 VTAER 11: PRINT ZERO$ 
5055 VTAR i4: PRINT "PATIENCE POUR QUEL 
QUES SECONDES" 
5040 GOSUE 600 
5050 HOME : PRINT "VOULEZ-VOUS 7": BRIN 
T 
5060 PRINT "i —- METTRE À JOUR LE FICHIE 
R': PRINT "2 — CONSULTER LE FICHI 
ER": PRINT "5 —- EFFECTUER UN TRAI 
TEMENT'": PRINT : PRINT " (Oo PO 
UR ARRETER) " 
5085 VTAB 13: INPUT " VOTRE CHOIX 7? 
"°SU: IF SU = © THEN HOME : PRIN 
T "AU REVOIR": END 
5095 IF SU ( © OR SU } 3 THEN GOSUR 135 
000: VTAB 18: HTAK 18: PRINT UN$: 
GOTO 5085 
5200 HOME : FRINT "LISTE DES PRODUITS": 
VTAE 3: FOR I = i TO Z0: PRINT L 
1$(1): NEXT :HT = SilM = 20: GOSU 
E 50000 
5260 PRINT : IF CP = © THEN 5050 
5500 ON SU GOSUR Z000, 4000, 10000: GOTO 
5050 
6000  REM 
*x*%x CREATION DU FICHIER *#+ 
6005 D$ = CHR$ (4): TEXT : HOME : VTAE 
1: HTAB 7: PRINT "CREATION D’UN F 
ICHIER":ZEROS = " 
6010 VTAB 6: INPUT "NOM DU FICHIER-PROD 
UITS ? ":NOm$ 
6015 IF NOM$ = "" THEN VTAE 9: FLASH : 
PRINT "AU MOINS 1 CARACTERE S.V. 
P. ": NORMAL : GOTO 6010 
6019 VTAEH 9: PRINT ZERCOS 
6025 VTAE 1Z: PRINT "PATIENCE POUR QUEL 
GUES SECONDES" 
6030 PRINT D$"OPENPRODUITS":NOM$:",L80" 


: PRINT D$"DELETEPRODUITS" : NOM: 
PRINT D$"OPENPRODUITS" : NOMS : ", L8O 


6040 FOR CP = 1 TQ ZO: PRINT D$"WRITEPR 
ODUITS'":.NOM$S:",R'°CP: PRINT ""2 N 
EXT : PRINT D#$'"CLOSEPRODUITS":NOM 
$: END 

10000  REM 


##*x PROGRAMME DE TRAITEMENT ##% 


10010 HOME : PRINT "TRAITEMENT NON PROG 
RANMME " 

10020 VTAB 10: PRINT "BARRE D’ESPACEMEN 
T POUR LA SUITE":: GOSUR 12000: R 
ETURN 

12000 REM +*#* ATTENTE #44 

12010 POKE — 16368,0: PRINT " ": 

12020 Z = PEEK ( - 16384): IF Z © = 12 
B THEN 12070 

12025 POKE - 16368, 0: RETURN 

13000 REM +*#%x REFUS ##%% 

13010 VTAB 23: FLASH : PRINT " ENTREE R 
EFUSEE ": NORMAL : RETURN 

13100 REM ##»x CARACT. NÜMER, ##x 

13110 FOR JJ = 1 TO LEN (A$):AA = ASC 

( MID$ (A$,JJ,1)) 

13120 IF (AR > 47 AND AA ( 58) OR AA = 
46 THEN NEXT : RETURN 

13130 VTAB 23: FLASH : PRINT " CHIFFRES 
SEULEMENT S.V.Pp. " 

13140 ER = 1:JJ = LEN (A$): NORMAL : RE 
TURN 

15000 REM *x* LIBELLES CARACT. #%## 

15010 DATA CODE ARTICLE (6 CHIFFRE 
5) 

15011 DATA CODE FOURNISSEUR (4 CHIFFRE 
5) 

15012 DATA CODE CASIER (à CHIFFRE 
5) 

15013 DATA CODE REAPPRO. (1 CHIFFR 
E) 

15014 DATA POIDS DE LA PIECE {x 
G) 

15015 DATA PRIX UNITAIRE (FR. CM 
.) 

15016 DATA STOCK MINI (NOMER 
E) 

15017 DATA QGUANT. A COMMANDER  (NOMER 
E) 

15019 FOR I = 1 TO 8: READ CG#(I): NEXT 

15020 DATA 6,4,4,1,7,7,3,3 

15025 FOR 1 = 1 T0 8: READ LG(I): NEXT 

15030 DATA 999999, 9999, 2999, 9, 100, 1000, 
200, 500 

15035 FOR I = 1 TO 8: READ MG(I): NEXT 

15700 RETURN 

30000 REM *** POSITION DU CURSEUR ##*% 

30001 VTAB 24: PRINT "MONTER ((-) , DES 
CENDRE (-)) , RETURN": 

3000% CP = 0: VTAB CP + Z 

30005 HTAB HT: GET Z$:Z = ASC (Z$) 

30007 IF Z = 13 THEN RETURN 

30010 IF Z = 2i THEN CP = CP + 1 

30015 1F Z = 8 THEN CP = CP - i 

0017 1F 210) <} LSTOND À 29 STNDIZ 
{ } 8 THEN PRINT "":: GOTO 300 
05 

30020 IF CP { = © THEN CP = © 

30025 IF CP ) = LM THEN CP = LM 

30030 VTAB CP + 2: GOTO 30005 
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Un programme de HELLO complet 


Le programme le plus fréquemment 
utilisé est sans conteste le programme 
HELLO, ou BONJOUR, qui nous sert 
à « booter » les disquettes. De nom- 
breux programmes ont déjà été propo- 
sés à cet effet, chacun ayant ses avan- 
tages propres. Nous avons voulu réunir 
dans un programme unique les possibi- 
lités qui nous paraissaient les plus inté- 
ressantes, à savoir : 

— affichage du volume, des secteurs 
libres et de 40 titres ; 

— läncement des programmes par 
enfoncement d’une seule touche ; 

— chargement jusqu’à cinq fois plus 
rapide ; 

— test de la carte langage et charge- 
ment de l'INTEGER en 5 secondes ; 
— changement de drive avec les flè- 
ches gauche et droite ; 

— delete par CTRL-D suivi du code 
du programme ; 

— lock/unlock par CTRL-L, suivi du 
code... ; 

— load/bload avec affichage des 
adresses par ESC, suivi. ; 

— catalogue normal avec la touche 
po HA 

— revectorisation du RESET dans le 
moniteur par la touche ”°” ; 


— taile du programme réduite à 
6 secteurs. 


Mémorisation sous forme 
de programme Applesoft 


Afin d'obtenir un programme à la fois 
court et rapide, il a fallu le réaliser en 
assembleur ; nous avons utilisé pour 
cela le BIG MAC. Pour être « boota- 
ble », un programme doit normale- 


1 :{ =0 s1 pas de minuscule) 


ORG $80D 


MENU ULTRA-RAPIDE 
AVEC LOCK-UNLOCK 
ET DELETE 
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ment être écrit en Applesoft : nous 

avons donc converti notre programme 

assembleur B.HELLO en programme 

assembleur grâce à la procédure sui- 

vante : 

NEW vide la mémoire, 

1 CALL 2061 : appel du programme 
assembleur, 

BLOAD B.HELLO : charge le pro- 
gramme en mémoire, 

CALL —151 :passe en assembleur, 

*AF : FE OC :redéfinit l'adresse de fin 
de programme de façon à englober 
le programme assembleur, 

CTRL-C :retour à l'Applesoft, 

SAVE HELLO :sauvegarde du nou- 
veau programme de boot. 


Sur la disquette Pom's d'accompagne- 
ment, nous avons simplement repro- 
duit le programme HELLO ainsi 
obtenu. La technique que nous venons 
d'illustrer permet d'incorporer une rou- 
tine en assembleur à un programme 
Applesoft qui l'utilise. Cela permet de 
copier ensuite le programme avec un 
simple LOAD suivi de SAVE, ce qui 
est plus simple que de devoir faire 
appel à FID pour copier le fichier 
binaire. 

Pour fonctionner, HELLO requiert 
48K de mémoire (ou plus), le DOS 
3.3. et l'Applesoft en ROM. 


Vitesse de chargement 


Une remarque relative à la vitesse de 
chargement : depuis la parution du 
livre BENEATH APPLE DOS, on sait 
qu'en fait, c'est le DOS, et non l'Apple, 
qui est lent. Il lit un secteur dans son 
buffer en $9600, le recopie à son 
adresse normale et, quand il veut lire le 
secteur suivant, le disque a déjà tourné, 
obligeant le DOS à patienter un tour. 


Thierry Le Tallec 
Jacques Tran-Van 


En chargeant un secteur directement à 
son adresse sans passer par un buffer, il 
n'est plus nécessaire d'attendre, c'est 
tout. Les ZDOS 2.2., DOS 34, 
HYPERDOS, &BLOAD et autres 
TURBODOS reposent simplement sur 
ce principe que nous avons déjà utilisé 
dans l’article « Chargez vite vos fichiers 
binaires » paru dans le Pom's 4. 

Le chargement de l'INTEGER dans la 
carte langage se fait de la même 
manière après les tests : 

— Y a--il une carte langage ? 

— Si oui, contient-elle déjà l'INTE- 
GER ? 

— Sinon, y at-il INTBASIC sur la dis- 
quette ? 


Structure du programme 


Le programme comporte une première 
partie, de $80D à $C03, qui gère les 
commande DELETE, LOCK, …, la 
lecture du catalogue, etc. 


La seconde partie, placée en $9AA6 
(premier buffer du DOS), assure le 
chargement du programme et son exé- 
cution. Cet endroit a été choisi pour 
que le programme chargé ne puisse 
écraser ce module vital. 


Remarques 


Dans la présentation du catalogue, les 
symboles suivants sont utilisés : 

7*? pour un fichier binaire, 

”’ pour de l'Applesoft, 

>” pour de l'Integer, 

”.” pour un fichier TEXT ou EXEC. 


Le type de chaque programme est pré- 
senté par un symbole en inverse si 
celui-ci n'est pas verouillé. 


Thierry Le Tallec 
ei 


Jaccues Trañ-Van 


*{cali 2061) 

















PARMLIST EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$1000 


rang du pan 

fpointeur de pq 

#pointeur de TSL 

fdrapeau de pgn ‘LOCKED’ 
sdrapeau de ‘DELETE’ 

pointeur de dfbut de pan 
sauvegarde de Y 

drapeau ‘RUN/LOAD’ 

type du pan 

pointeurs de diplacenent 

ide L'INTEGER 

poids fort de l'adresse du catal, 
index dans le bandeau 

drapeau de protection-icriture 
inarge gauche de l’{cran 
largeur de la fenttre {cran 
haut de la fenttre {cran 
position horizontale du curseur 
voir Call Apple janvier 62 
#dout de la zone variable sisple 
fpointeur de fin de pgn 

sdtout de program INTEGER 
drapeau de ON ERR 

sauvegarde de Ÿ 

sdtpart @ chaud du DOS 

entree du file manager 
localise 1’I0B 

vecteur de RESET 


tadresse {cran du symbole-comande 
tadresse de dibut du catalogue 


DIRCTORY+$F38 fpointeur de d£but de VTOC 


$2FFC 


adresse de chargement de L’INTEGER 
tampon du ler secteur du pgn 
ttampon de La TSL du pou 

ler buffer donn£es du DOS 

#dtpart @ chaud du DOS 

routine de passage @ L’INTEGER 


$rautine ‘EXEC’ 
faffiche les messages d'erreur 


sconstruction des buffers du DOS 
sreconnecte le DOS 

## disque par défaut 

tampon de non du programe 
fparametres du file manager 
sentrie de la RATS 

fparamttres de la RNTS 

5# disque 

fvolume attendu 

piste 

secteur 

pointeur du tampon de donnes 
scommande de la RWTS 

svolume trouvi 

tautorise la lecture de La RAM 
tautorise la lecture de la ROM 
#dibut de la carte langage 


C090005 


NXTDESC 
TESTSCT 


ÉLEEEREÉEÉE 


RSSCRSSESRSES 


Lep] 
— 
€ 


SHÉÉBER 908 
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sextcution d’un pam APPLESOFT 
itype du langage 

affiche les 2 octets de X,A 
sextcution d’un pan INTEGER 
jinitislisation INTEGER 
affiche Les registres A,X 
text 

positionnement vertical du curseur 
bip 

snonte le curseur 

efface l'cran 

efface la fin de 13 ligne 
tentr£e d’un caractire 
envoie un retour chariot 

tva @ la ligne, affiche X,Y,'-’ 
affiche le caractire dans À 
taffichage en inverse 
affichage en mode normal 

+ IN#0 

+ PR#Û 

taffiche ‘ERR‘ 

tentrie du moniteur 


plein {cran 

efface l’Ecran 

?IN#0 

;PR#0 

tauelle configuration ? 
?4%K de ram ? 


bip 
rend la main 


tefface PLE 


splace le pan en FINALE 


srevectorise le reset 
fpour une sortie 
Plus propre, 

tcr£ée une fenstre 


#comsande lecture pour 13 RATS 
lit le catalogue 


calcul de l’espace libre disque 
fdescripteur de piste 

si 0, piste toute utilisee 

si C = 0, le secteur est utilise 
sinon il est libre 

sauve Z 

tincrimente le compteur 
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TESTINT 


EES #oAacen 


e 
— 


CARDIN 


CLELLIETE 


COMPAR 


ERSE 4024488 


La 
1 
Tr 


CEE 


FINDINT 


RE 
À 
z 


ERSSASE 
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OTHRSCT 
COUNTER+1 
irecupere Z 
TESTSCT+2 fsecteur suivant 
piste suivante 
fin de la VTOC ? 


ide secteurs libres 


NXTDESC 


tlecture carte langage 
ftype du basic 


#icriture carte langage 
##a-t-il une carte langage? 
SRE 

+OU1 


pas de carte 

+INTEGER d{j@ chargt ? 

snon x 
4 
SEARCH 
FRSTFIL 


non x 
affiche le catalogue 


FILEPTR+I isecteur suivant du catalogue 


tinitialise le pointeur de nom 
et le sauve 
spricident pointeur de non 


snouveau pointeur FRSTFIL 

YSAU 

#03 fin du secteur ? 

NEXTPAGE ;secteur suivant 

HLOADING-INTBASIC ,; longueur de ’INTBASIC’ 

(FILEPTR),YŸ charge une lettre du non 

NOFILE si 0, fin du catalogue 

INTBASIC-1,X comparaison avec ’INTBASIC’ 

MEXTPCM si € alors titre suivant, 
$sinon lettre suivante 


LES540 


COMPAR fin de la comparaison ? 


YSAV trécupire le pointeur de nom 
LESS20 


(FILEPTR),;Y 
SECTOR range le # de secteur de la TSL 


(FILEPTR);Y 

NEXTPGM si effact on le saute 

TRACK range Le + de piste de 1a TSL 
LOADING,X affiche ‘CHARGEMENT DE L'INTEGER’ 
$SAF ,X 


STA 


SE 
— 
Z 


SÉHBRPÉSESSS ME TSERBBEE ASE 5 ABBZAE 


SSSÉBERESZE 


fcharge INTBASIC en $2FFC 
srevient avec Y={ 


POINTER? jinitialise les pointeurs 
4430 sdtplace $30 pages 
POINTER1+1 ;POINTERI <- #3000 
#>LANGUAG 

POINTER?+1 POINTER? <- $D000 
(POINTER); Y 

(POINTERZ),Y 


MOVEINT ;dtplace L'INTEGER en $D000 
POINTERI+1 
POINTER2+1 


MOVEINT page suivante 


HOME efface l’cran 
#>DIRCTORY 

FILEPTR+# 
FRSTFIL saute toujours 
YREG 


435 
ONEMORE 
FILEPTR+#I 
+$0B fentr£e du ler fichier 
YREG 

FILENUM 

#40 Pas plus de 40 titres 


#20 ;20 titres par fenttre 


ÉPRAPA RAR HA TUS MERS PENCERS 


ar 


ä 
Fur 


?X=FILENUMXA 
(FILEPTR),YŸ f# de piste 
NXTFILE saute si effact 
ENDCAT fin si zero 
BUFFER,X 
FILENUM jun fichier de plus 
FILEPTR+#I 


sauve le pointeur de non 


(FILEPTR),Ÿ jmixe avec Le # secteur 
BUFFER+1,X 





BUFFER+3,X sauve l'index 


#$FF 
LOCHFLG abaisse le drapeau de ‘LOCK’ PFRESCT TITRE; Ÿ 
(FILEPTR),Y jtype du fichier 
LOCKED Ë 
Live le drapeau de ‘LOCK’ ;Vtab 22 
LOCHKED tannule le bit de poids fort 
#Htab 14 


ENDCATI 4$6à 5C'X" clignotant) 
SETRST-3 si reset <: $90BF 
#HARMDOS jaffiche ‘x’ 

ENDCAT2 

#$60 s(curseur clignotant) 
SYMBOL 

#13 

MESSAGE-1,Y 

$7CF,;Y affiche le message 


CHKTYPE 


PTYPE ENDCAT2 
ten inverse si non vérouill£ 


affiche le caractire et ‘-’ PCHOTX 


PCHOIX 

DELFLAG raz du drapeau 
LOCKFLG 

ROKEY fattend le choix 


444 RAZFLAG 
+149 

PRINT affiche le caractire et ‘-’ GET 
#15 


PLUS26 


END fin si ‘espace’ 
sx" 
GET2 
MONITOR reset = $FF49 


(FILEPTR),Y jaffiche le non 

4" " cherche les caractires GET 
NORMDSP de controle, 

+490 

PNAME et les saute, 


HÉLELEEÉLE 


= 
; 
2e 
: 


ER 
ESCÿ SES SURAGEHSENSECHBENSESECANAPPCSEGGECSESS 
JRESQ 3 S2e+GE 
LEEDS 
5 2ECSERSESHLERSALECSE 
2HEX os 


PNAME BNE ENDCAT saute toujours 
CROUT GET2 CP +#"1" 
NXTFILE titre suivant BNE GET3 
x LDA +#<WARMDOS ;reset = $90BF 
PRINT COUT LDY #>HARMDOS 
+"-" BNE CHNGRST change le vecteur de reset 
COUT GET3 CMP #$95 "2" = disque 2 
x ENE GET4 
ENDCAT INIT plein {cran LDA #2 
#5 SETORIV STA DRIVE 
CH STA DFLTDRV 
40 JMP BEGIN trelit le cataloque 
STA RUNLOAD drapeau = "RUN" GET4 CHP +488 jé" = disque Î 
JSR TABV curseur en haut de l’£cran BNE GETS 
PUOLUME LDA TITLE-1,Y LDA #1 
STA $3FF,Ÿ BNE SETDRIV 
DEY GETS CMP 4498 tesc ? 
BNE PUOLUME affiche le volume BNE GET6 
TYA STA RUNLOAD live le drapeau de ‘’LOAD’ 
LDX PREVOL LDA +$3F ("2 inverse ) 
JSR LINPRT STA SYMBOL 
JSR CLREQL BNE  RAZFLAG 
LDA +421 GET CMP #48C tctrlL = lock/unlock 
STA CH BNE GET7 
LDX COUNTER STA LOCKFLG 
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DISPLAY AND +#47F STA FILEPTR+#I 
STA SYHBQL LDA BUFFER+2,X jtuype du pan 
BNE GET STA TYPE 
GET7 CMP +584 sctrl-D = delete LDA BUFFER+#3,X 
BNE GET8 STA FILEPTR 
STA DELFLAG LDY +430 affiche le nom choisi 
LSR LOCHFLG annule le drapeau ‘LOCK’ SELECT LDA (FILEPTR),Y 
BPL DISPLAY jaffiche le nouveau symbole STA SYMBOL-1,Y ;@ partir du curseur 
GET8 CF +#"/" compare avec //‘ STA NAME-1,Y jet l’crit dans le tampon du DOS 
BEQ DSFCAT  jaffiche le cataloque normal DEY 
GET9 CMP +"0" BNE SELECT 
BCC GET pas < "0" BIT LOCHFLG run ou lock ? 
UE Le BPL CHECK 
BCS GET pas > "7" JSR PROTECT disque prot£gt en {criture ? 
CMP +'a" LDA (FILEPTR) +Ÿ 
BCC AFTERZ ECR +$80 bascule le bit de LOCK 
SEC 444 STA (FILEPTR),Y 
LDX #7 
JSR CATALOG ÿrifcrit le catalogue 
DEBUT JP BEGIN 
x 
LA PORTE ! DSPCAT  USR HOME 
LDX #6 code de ‘catalog’ 
JSR SETPARM appel du file manager 
e JSR RDKEY  ;attend une entrie clavier 
EMT DEBUT saute toujours 
x 
PROTECT BIT HRITERR 
BPL NOERROR retour 
LDX #4 code de ‘HRITE PROTECTED DISK’ 
ENE ERROR 
x 
CHECK BIT DELFLAG run ou delete ? 
BPL NODELETE 
JSR PROTECT disque protgt en {criture ? 
LDA (FILEPTR),Y 
BPL OKDEL 
LDX #10 ilocked -> ne pas effacer 
BNE ERROR 
OHDEL  LDA #NAMÆ ;l'efface 
STA PARMLIST+8 
LOA Æ>NAME | 
AFTERZ SBC +149 scalcule le rang STA PARMLIST+9 
CMP  FILENUM UX # icommande delete 
BCS GET fil n'y en a pas tant! JSR SETPARH 
ASL JMP BEGIN 
ASL ÿmultiplie par 4 x 
TAX fdavient l'index NODELETE LDA TYPE 
LOY BUFFER,X ;# de piste BNE NOTEXT 
LDA BUFFER+#I,X secteur de La TSL JF DOSEXEC jexec 
PHA x 
AND #$0F NOTEXT CP #4 pau BINAIRE ? 
JSR LOCTRK range piste et secteur dans 1‘I0B BEQ RDTSL  jaui -> le charger 
FLA trécupire le pointeur de nom BCC APLSOFT 
LSR BADTYPE LDX #13 code de ‘FILE TYPE MISMATCH’ 
LSR BNE ERROR 
LSR APLSOFT CMP #2 spgm APPLESOFT ? 
LSR BEQ RDTSL 
ORA 4FILEH LDA +##20 
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| MOVETSL 


FRSTSCT 


CATALOG 


LDX 


898 +SÉCS985655%3 


2 
442 
cn >< 


tessaie de passer en INTEGER 
ÿsi reussi, charge le pan 
ferreur ‘LANGUAGE NOT AVALAIBLE”’ 


#4 ? ARITE PROTECTED DISK’ ? 
sauve Le resultat 

foip ! 

taffiche le message d'erreur 
sen inverse 


attend une entr£e clavier 
est-ce ‘HRITE PROTECTED‘ 
$si oui, jump BEGIN 
sinon affiche le ner 
flocalise l'I0B 

appelle La RNTS 


si C=0 pas d'erreur 
49 code de ‘1/0 ERROR’ 


sune autre TSL ? 
si pas de suite,,stop 


inon -> saute 


BUFADR+1 page suivante 


TSL+268,Y rend les TSL contiques 
TSL+256,Y 


lit le ler secteur en #9600 


range piste et secteur dans l’I0B 


#positionne le buffer de RHTS 
scontinue 


CMD scommande RHTS(1=lect, 2={crit,) 


fpointeur de pm = $1000 
Æ>DIRCTORY 

FILEPTR+I 
LOCBUF 
#$0F 
#11 


sd£but du buffer = $1000 


JSR 
NXTSECT  JSR 
INC 
DEC 
BPL 
LDA 
LDA 
BPL 
STA 
NOSCTCH RTS 
x 
SETPARM  STX 
LDA 
STA 
LDA 
STA 
JP 
x 
TABLE ASC 
TITLE  IW 
x 
D0 
x 
ASC 
TITRE ASC 
x 
ELSE 
ASC 
TITRE ASC 
x 
FIN 
x 
MESSAGE IN 
ASC . 
Li 
INTBASIC ASC 
x 
LOADING ASC 
x 
LOCTRK  STY 
STA 
RTS 
x 
LETSGO  LST 
RG 
x 
LDA 
LSR 
BCS 
LSR 
BCS 
x 
BINARY  LDA 
STA 
BC 
TAY 
LDA 
STA 
SBC 


trange piste et secteur dans l’I0B 


+ de secteur = -1 ? 

non —> encore un secteur 

iteste si protection en icriture, 
idans le slot 6 ! 

non 

live le drapeau de protection 
retour 


PARMLIST45 
MANAGER appel du file mariager 


"42 TAGRIX" 
1_pOM/S--" 


LOHCASE 
“ Vol : n 


" secteurs libres" . 


" Vol." 
"SECTEURS LIBRES" 


"VOTRE CHOIX" 


uw + 
+ 


“ CISATNI" 
"(CHARGEMENT DE L'INTEGER)" 


TRACK 
SECTOR 


frange la piste dans l’I0B 


ON 
FINALE 


TYPE #récupire le type du pan 


?INTEGER ? 


*APPLESOFT ? 


tadresse de dbut 


#3 determine l’adr, du buffer (C=0) 
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LOAD 


8 +SLERSCCÉSSS 


APSOFT 


3 4 
> x 


BSLzLSSSE 


STA 


INTROUT LDA 


STA 


88935 


BSHSBSS 


BE +A48S988z 


E 
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LOCBUF positionne le buffer de RWTS 
BOOTPCM charge le pan 
CLEANUP nettoie les buffers du DOS 


PRNTAX affiche la longueur du pan 
HARMDOS sortie par reset 
(START) jexicute le pqn 


BUFFER calcul de LOMEM 


ECPRGM  LOMEM = fin du pq 
LOMEM  ; =$801 + longueur du pan 


#$FF son le charge en $7FF 

#$07 : ($901 - $02) 

LOCBUF  ;positionne le pointeur de buffer 
BOOTPGM charge le pan 


$300 : ($800) = 0 


#$60 ÿpoke ‘RTS’ dans le D0S cold start 


INT ‘passe en INTEGER, 

#$6C restaure le code 

$9DE7 dans Le DOS cold start, 
INTCOLD ÿinitislise le LOMEM 
CLNDGS revient avec A={ 


4696 HIMEM = #$9600 


BOOTPGH charge le pan 


INTRUN  jextcute Le pou 


#$0C 
(TSLPTR),Y ;# de piste 
ENDBOOT si piste = ( fin du chargement 





SETRST 


STA TRACK 


(TSLPTR),Ÿ ;# de secteur 

STA SECTOR 

STY ŸREG sauve l'index 

LDY +#<10B 

#108 

RHTS ssecteur suivant du pgm 
END isortie si erreur 

YREG trestaure l'index 


TSLPTR+I ;lit La TSL suivante 

BUFADR+1 ;on charge 256 octets plus haut 
BOOTPGZ saute toujours 

CLRCOLD warm start & retour 


LDA 
JSR 
BCS 
LDY 
INY 
BNE  BOOTNXT 
INC 
INC 
BNE 
JP 
DA 
LDY #<TSL buffer de TSL en $9700 


STY BUFADR adresse du buffer de RTS 


JSR CLNDOS reconstruit les buffers du DOS 


STA TRAP + (A=0) 





LDA +22 
JSR HOME+2 23 
JSR UP Ps 
JSR CROUT = 
LOY #<WARMDOS jreset = $90BF ës 
STY SOFTEV  jvecteur de RESET 54 
STA SOFTEV+I & 
ER #$A5 ET 
STA PHREDUP = 
BIT RUNLOAD 2 
RTS 
JSR  CLEANUP 
JP  HARMDOS 
LST OFF 
Trucs et astuces 

Essayez le petit programme suivant : 

1 PRINT “COMMENT VAS-TU ?” 

5 VTAB PEEK(37) :PRINT 

Si: NOADESPOELRET:POKE 

2049,066 

Pour lapprécier, faire [LIST], puis 

[RUN] et-[LIST], séparés bien entendu 

par les traditionnels RETURNSs. 
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Récapitulation du programme HELLO 


1CALL-151 8100- 85 24 20 9C FC ÀZ 6A ÀD 
81C8- 89 9E C9 EF DO 02 A2 60 
K6000,8395 = 8100- SE DD 07 40 0D E9 CE 0FE 
81D8- 99 CF 07 88 D0 F7 446 04 
6000 20 2F.FE 20 S8 FC 20 89 81E0- 46 03 20 0C FD CS À0 DO 
GP0BT FEV Z D PSN EE "AD DS "DSC? 81E8- 03 4C 94 9E C9 Aâ DO 0C 
9010 92 F0"06 20 2D FF 4C DO 81F0- A9 69 À0 FF 8D 89 9F 8C 
8018- 03 20 51 À8 À9 D3 8D 00 81F8- 8E 9E D0 846 C9 DD D0 04 
8020- 9D 49 9C 8D 01 9D A2 00 8200- A9 EF A0 9D DO EE C9 95 
80#8- 86 19 ED 04 0C 9D À 9A 82093- D0 0 49 02 8D Eû E7 8D 
8030- E8 D0 F7 À0 9À 49 9E 2 8210- 66 AÂ 4C 0D 08 C9 68 DO 
8038- 8C 9E ÀZ 02 86 22 20 58 G210=- 0 A7 CT DIN EF IC PB1DD 
8040- FC CA 20 42 0F A0 8C E9 220 07 85007 49725 (SPEDDNOI7 
8048- 37 1F F0 0F 0À 90 FE 08 8228- D0 E4 C9 8C DO 09 85 03 
80%0- EE 67 9E D0 03 EE 68 9E 8230- 29 7F 8D DD 07 D0 AK C9 
8058- 28 D0 F1 88 DO E9 2C 83 8238- 84 DO Dé 85 04 46 03 10 
8060- C0 AD 00 E0 AC 01 EQ 2C 0240 ERA AFUFOUSSUCPRA TU 
8068- 81 C0 C9 4C D0 04 C0 28 8248-09) 97,09 DB EI PE COL C190 
8070- F0 08 C9 20 DO 09 C0 00 LOU AUeNET Z2CNET 95, Ce 00 p0 
8078- D0 0% 4C 03 09 Eé 02 A0 8258- 89 Où OÀ 4 EC 00 96 ED 
8080- EF 84 FE ÀS FE 18 69 23 O2 0109648 27 0020) FPE 
80428- A6 85 FE C9 03 F0 EE À2 8248- 66 44 AA 44 44 09 10 85 
8090- 0Ë Ei 01 F0 52 DD D8 0E 8270- 02 ED 02 96 85 OC ED 03 
8098- D0 E9 C8 CA D0 F3 À4 FE 8278- 96 85 01 ÀO 1E E1 01 99 
8040- 88 88 El 01 8D ED E7 88 8230- DC 07 99 74 AA 88 DO F5 
80A8- E1 01 30 D7 8D EC E7 ED 02987 24 03° 10 2620 E7 04 E1 
800- E4 0 9D ÀF 05 E8 EO0 19 G270S C0 G0MPINTL AZUDZ 20 
808- D0 F5 20 69 9E 20 19 0E 8298- 62 0640 0D 08 20 59 FC 
GICUSLAD) FC A7 L2F 20070 9ER70 8240-— ÀZ 06 20 94 0Ë 20 0C FD 
80C8- SE 98 84 0E 84 10 AZ 30 8248- 30 F0 24 1E 10 64 À2 04 
| «4 80D0- 86 OF À9 D0 85 11 E1 0E EUR DDUSF, 29-0410 1D 201,67 
à 80D8- 91 10 C8 D0 F9 Eé 0F Eé 8258- QÀ E1 01 10 04 42 04 D0 
5 80ËE0- 11 CA DO FZ 20 58 FC 49 82C00- 30 À9 75 68D CS E5 À9 âÂ 
+ - 80Ë8- 10 85 02 D0 09 À5 06 18 82C8- 8D C4 ES À42 05 20 94 0FE 
Éd 80F0- 69 23 90 04 Eé 02 À9 0E 820D0- 4C 0D 08 AS 0C DO 03 4C 
Fa 80F8- AG 84 06 ÀS 00 C9 ?28 90 82D8- C6 ÀS C9 04 F0 3E 90 04 
É. 8100- 03 4C 8F 09 C9 14 D0 CE 82E0- A2 0D DO 0D C9 02 F0 31 
Es 8108- 85 20 85 21 20 58 FC A4 82E8- A9 20 20 F2 ÀS F0 Z2ÂÀ À2 
o 8110- 06 ÀS 00 0À 0À A El 01 82F0- 01 E0 04 08 20 DD FE 20 
#3 8118- 30 D3 F0 66 9D 00 96 Eé 82F9> SONFE LSONDZSATAAUNSANFE 
Es 8120- 00 C8 ÀS 02 04 04 OA 0À 8300- 20 9C FC 20 0C FD 28 F0 
D129-0 11 0 ISPD 01 PE 0ES #9 090 GAURS PLACES EO0P 70 END NZ20 
8130- 03 96 À9 FF 85 03 E1il 01 8310- ES E7 90 04 42 08 DO D9 
9138- 90: 04 46 03076: 03729. 7F 8318- 60 20 69 9E 20 19 0ËE AD 
8140- 9D 02 96 À2 07 O0À 0 E0 8320- 01 97 ED 00 98 A8 F0 17 
8148- 03 CA DO FA ED AS 0E 25 Sdede AD De 07/0201 1FDAIBSEEUFI 
8150: 03 20 87 09 AS: 00 C7 16 8330- E7 20 19 OF ÀQ 00 E9 0C 
0159 002,67 26 067 74,71087 8338- 98 99 09 98 C8 D0 F7 AC 
8160- 09 À2 0F C8 El 01 C9 A0 8340 0C 97 AD 0D 97 20 FD 0E 
616B-80,04 07 80 "PI UFS5 FIVED 8348- AD 00 À9 96 20 71 9E 20 
8170= FD CA DONEF Z20:8E FD. 40 8350- 19 0E 4C Âé 9A 8E F4 F7 
8178- F4 08 20 ED FD 49 AD 4C 8358- 86 1E A0 00 8C EE E7 84 
8180- ED FD 20 2F FE A0 0F 84 8360 00 84 01 À9 10 85 02 26 
8188- 24 A7 00 85 07 20 S5B FE 83684- 71 9E à49 0F À0 it 20 FD 
8190- E9 AC 0 99 FF 03 88 DO 20 UE NZT AYUUE ÉE FINE 7UCE 
BLPO AA ONAENE GE ZX 0 24NED 278- ED E7 10 F5 4D ED C0 AD 
81A0— 20 9C FC A9 1585 24 AE 296807 EE C0 10 02 685 LE 60 8E 
81A8- 67 9E AD 68 9E 20 24 ED 8388- EE ES À9 06 8D C1 ES AD 
81#0- À0O OF E9 EC 0E 99 18 04 8390- 68 À 8D C0 ES 4C 
BTPOTNAB TOME ZI RO FENAPOUID *3D0G 
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Je venais de terminer de taper ce 
magnifique programme d'Othello 
publié par une de mes revues préférées 
et j'avais fait plusieurs parties plus ou 
moins brillantes de ma part quand, au 
beau milieu d’une partie passionnante, 
la sentence tomba comme un couperet 
de quillotine : SYNTAX ERROR IN 
LINE 980. Horreur ! ! ! Je listai la ligne 
980 : il manquait un deux points entre 
un HOME et un GOTO), ce qui m'avait 
échappé au cours des nombreuses 
relectures du programme. 

Cette histoire a déjà dû se produire, de 
façon plus ou moins semblable, chez 
nombre d’entre vous. Aussi m'écriai-je 
alors : plus jamais! Je m'attelai à 
l'ouvrage et pondis le programme 
d'analyse syntaxique (SNTX) ci-joint. 
-Ce programme répond à trois objec- 
tifs : c'est tout d'abord un utilitaire qui 
détecte les SYNTAX ERROR et les 
TYPE MISMATCH ERROR avant 
l'exécution d’un programme en Apple- 
soft ; secundo, il est didactique quant à 
la forme : c'est un programme que j'ai 
voulu très structuré afin de bien illustrer 
la logique de la programmation et que 
j'ai truffé de remarques (presque une 
instruction REM par ligne) ; tertio, il est 
didactique quant au fond : son étude 
aide à comprendre comment fonc- 
tionne l'analyse syntaxique qui est une 
des trois activités fondamentales d’un 
interpréteur (avec la gestion des varia- 
bles et celle des piles — les piles de 
l'Applesoft permettent de gérer les 
GOSUB et les FOR...NEXT). 


Comment utiliser 
ce programme 
a) Programme sur cassette 


Il faut taper les instructions suivantes, le 
programme à étudier étant déjà chargé 
en mémoire : 

POKE 1912, PEEK (103) : POKE 
1913, PEEK (104) 

POKE 1914, PEEK (175) : POKE 
1915, PEEK (176) 


Cela permet de cacher les pointeurs de 
début et de fin de programme (adres- 
ses 103 et 104, 175 et 176 respective- 
ment) dans les mémoires 1912 à 1915 
(qui semblent faire partie de la page 
texte, mais qui en réalité n'en font pas 
partie — voir le manuel de référence 
de l'APPLE Il). 
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Un analyseur de syntaxe 


POKE 103, PEEK (175) : POKE 104, 
PEEK (176) 
POKE PEEK 
(104)*256—1,0 
Cela permet de charger le programme 
d’analyse syntaxique SNTX à la fin du 
programme à étudier. 

LOAD charge SNTX 

DEL 1,0 met en place les pointeurs de 
SNTX 

RUN lance SNTX. 


b) Programme sur disquette 


L'opération ci-dessus est réalisée auto- 
matiquement par un fichier EXEC 
nommé SYNTAXE, fabriqué par le 
programme en Applesoft FAIT 
SYNTAXE ci-joint. La procédure à 
suivre est la suivante : 

RUN FAIT SYNTAXE crée le fichier 
EXEC 

LOAD Nomprog — Nomprog est le 
nom du programme à analyser 
EXEC SYNTAXE change les poin- 
teurs et lance SNTX. 


(103) + PEEK 


Fonctionnement 
du programme SNTX 


Fonctionnement général 


Le programme commence par deman- 
der le numéro de la première ligne à 
étudier. Puis, ligne après ligne, il indi- 
que si chaque instruction est correcte 
ou non. SNTX s'arrête automatique- 
ment après l'analyse de la dernière 
ligne du programme étudié ; il 
demande alors à l'utilisateur s'il veut 
retourner au programme initial : si 
non, il laisse le programme SNTX en 
place ; si oui, il rétablit les pointeurs du 
programme initial. 

On peut si on le désire interrompre le 
programme SNTX par CTRL-C ou 
RESET ; pour retourner à ce moment- 
là au programme initial, il suffit de faire 
GOTO 12000, à la suite de quoi 
SNTX pose la question du retour. 


Messages d'erreur 
et indications 


0 CORRECT 
erreur) 

1 INSTRUCTION NON RECON- 
NUE 


(instruction sans 
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2 (signe ou « token » de l’Applesoft) 
ATTENDU 

(variable ou fin d'instruction) 
ATTENDUE 

NUMERO DE LIGNE > 63999 
NOMBRE INCORRECT (nombre 
réel dans le programme) 
EXPRESSION INCORRECTE 
CONFUSION DE TYPE (type 
mismatch error) 

INSTRUCTION AMPERSAND 
INSTRUCTION CALL 

10 FONCTION USR 

11 INSTRUCTION REM 

12 INSTRUCTION DATA 

13 GET NUMERIQUE 


Les erreurs 1 à 7, fatales à l'exécution, 
sont indiquées par un beep sonore. 


\0 00 DR) Oo PR (es) 


Les messages 8, 9 et 10 indiquent des 
erreurs potentielles : il s’agit d’instruc- 
tions qui appellent le langage machine 
et peuvent prendre en main la syntaxe 
du programme (par exemple & X 
HPLOT ou CALL 768,A) ; aussi, 
dans ce cas, SNTX émet un message 
d'erreur et ignore la fin de l'instruction 
(attention : il se peut qu'exceptionnel- 
lement &, CALL ou USR nécessitent 
pour leur SYNTAXE le symbole deux- 
points, par exemple CALL 768:A ; 
dans ce cas, SNTX peut indiquer une 
erreur à tort). 


Les messages 11 et 12 indiquent une 
instruction un peu spéciale : la syntaxe 
de DATA est déterminée, uniquement 
à l'exécution, par une instruction 
READ et un REM ignore la fin de la 
ligne (ne pas faire REM BLABLA : 
PRINT Af$). Alors SNTX émet le mes- 
sage d'erreur et ignore la fin de l’ins- 
truction pour un DATA, la fin de la 
ligne pour un REM. 


Le message 13 indique une erreur un 
peu spéciale : GET A est par exemple 
licite en Applesoft mais si, en réponse à 
cette instruction, l'utilisateur tape une 
touche autre qu’un numéro de 0 à 9, 
on obtient une SYNTAX ERROR. Le 
GET numérique est donc à proscrire 
au profit de GET A$:A=VAL(AS), 
par exemple. 


Il faut signaler que les erreurs indiquées 
ne sont pas toujours celles faites par 
l'utilisateur : par exemple A=1B... 
engendrera le message FIN D'INS- 
TRUCTION ATTENDUE, que l’utilisa- 


teur ait voulu écrire A=1:B=2 ou 
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A=1+B; de même, GET(A$(BS$)) 
sera qualifié non pas de CONFUSION 
DE TYPE, mais par un GET NÜUMERI- 
QUE (c'est en quelque sorte ici un 
«bug» de SNTX, mais il était trop com- 
pliqué de faire autrement). - 


Notons que SNTX relève des erreurs 
que l’Applesoft ne voit pas. Par exem- 
ple, GOTO 123AS$ passe en Applesot, 
ce qui est dû au fait que, celui-ci étant 
interprété, il ne regarde pas derrière 


123; 


Une ligne du genre 10 PRINT « BLA- 
BLA sera notée EXPRESSION 
INCORRECTE par SNTX alors que 
l’'Applesoft tolère l'oubli du « quote » 
en fin de ligne. 


L'Applesoft supporte IF A$ THEN... 
ou encore ON I GOTO sans numéro 
de ligne, ce qui ne sert à rien et est 
dénoncé par. SNTX. 


De même pour STORE A$, instruction 
permise par l’Applesoft alors qu'elle ne 
stocke sur cassette que les adresses et 
les longueurs des chaînes du tableau 
A$ et non les chaînes elles-mêmes. 


Enfin, l'Applesoft ne vérifie la syntaxe 
de l'expression située après DEF FN 
F(X) = que si la fonction FN est appe- 
lée au cours du programme, par exem- 
ple PRINT FN F(2xl), alors que SNTX 
analyse la syntaxe de tout ce qui suit le 
DEF FN. 


En revanche, SNTX ne signale pas les 
autres erreurs d'exécution, comme les 
OUT OF MEMORY s'il y a par exem- 
ple trop de IF THEN, FOR NEXT ou 
GOSUB emboîtées ; les OVERFLOW, 
même pour les constantes réelles dans 
le programme (SNTX aurait pu le faire, 
mais c'était trop fatiquant |) ; ou encore 
l'existence de plus de 88 dimensions 
dans un tableau (ne soyons pas ridicu- 
les !) ; enfin, tout « trafic » fait directe- 
ment sur les octets du programme et 
qui change la « tokenisation » peut 
dérouter complètement SNTX. 


Analyse du programme 


Commençons par indiquer, à l'usage 
des puristes, que ce programme n'est 
optimisé ni en place mémoire, ni en 
vitesse d'exécution. En effet, pour aider 
la compréhension du programme, on a 
préféré le structurer au maximum, 
même si cela paraît parfois peu astu- 
cieux (sous-programmes appelés une 
seule fois par exemple). Nous n'indi- 
querons ici que les grandes lignes du 
programme, les nombreuses REM qu'il 
possède expliquant les détails. 


La ligne de programme 
Applesoft 


Indiquons en préambule comment est 
faite une ligne de programme Apple- 
soft. Les deux premiers octets repré- 
sentent l'adresse de la ligne suivante 
(octet bas, puis haut comme toujours) : 
si cette adresse est nulle, c'est qu'on a 
atteint la fin du programme. 


Les deux octets suivants indiquent le 
numéro de ligne (de O à 63999 en 
principe — octet bas puis octet haut 
bien entendu). 


Enfin, la ligne est représentée de 
manière « tokenisée » : les octets 
valant de 1 à 127 indiquent un carac- 
tère ASCII et ceux valant de 128 à 234 
indiquent un code («token») de 
l'Applesoft (voir Pom's 4 pages 44 et 
45), la fin de ligne étant indiquée par le 
code 0. 


Le programme 


Il commence par un saut à la ligne 
20000 pour initialiser le tableau des 
erreurs, demander le numéro de la 
première ligne à étudier et la chercher, 
en retrouvant l'adresse du début du 
programme à étudier dans les mémoi- 
res 1912 et 1913. 


Puis il saute en 10000 pour débuter 
l'analyse : il indique le numéro de la 
ligne et celui de l'instruction dans la 
ligne puis, en fonction du « token » de 
l'instruction, il saute vers une des lignes 
3000 à 3500 (étude des « tokens ») 
avant d'écrire le message d'erreur (ligne 
100 à 150) et de passer à la prochaine 
instruction (ligne 10020). 


Pour l'étude des « tokens », on utilise 
des petites routines situées avant la 


ligne 1000. 


Le cœur de l'étude syntaxique est 
constitué par l'analyse des expres- 
sions : il s’agit des routines débutant en 
600 (nom de variable), 1000 (expres- 
sion numérique) et 2000 (expression 
chaîne), qui s'appellent les unes les 
autres : et oui ! le BASIC est récursif, le 
problème étant qu'il ne possède pas de 
variables locales, difficulté contournée 
par l'utilisation de tableaux (VAR, Al 
et A2) et d'une pile (I, [1 et [2) notant 
l'enfoncement dans la récursion (lignes 


670, 1330 et 1620). 


Notons l'importance de la variable ERR 
dans ces routines :dès qu’une erreur est 
trouvée, ERR n'est plus nul et l'on sort 
immédiatement des sous-programmes 
récursifs par les multiples issues de 
secours IF ERR THEN RETURN. 





Après le retour au niveau général du 
programme {lignes 3000 et suivantes), 
l'analyse est arrêtée en cas d'erreur par 
le sous-programme de la ligne 20. 

Notons qu'en fin d'analyse, le pro- 
gramme saute à la ligne 12000 et, le 
cas échéant, retourne au programme 
initial en restaurant ses pointeurs qui 


étaient cachés dans les mémoires 1912 
à 1915. 


Les variables 


PTR : pointeur d'adresses qui indique 
la progression dans le programme étu- 
dié. 

À : contient la valeur de l’octet indiqué 
par le pointeur (ligne 10). 

ERR : numéro de l'erreur trouvée. 
ES$(ERR) : nom de cette erreur. 
FINI : variable indiquant la fin d’une 
instruction: (ligne 30 : A=0 ou A=58 
donne FINI = 1). 

TKN : indique la présence d’un (ou de 
plusieurs) «token » ou caractère à 
l'adresse pointée par PTR. 

LN : numéro de la ligne étudiée. 

NL : numéro de la prochaine ligne. 
IST : numéro de l'instruction dans la 
ligne (ligne 10000 et suivantes). 

BEG : numéro de la première ligne 
demandée par l'utilisateur (ligne 
200490). 

A$ : sert pour les INPUT et les GET. 
B : est un code et B$ un nom de 
«token » ou de caractère pour les 
messages d'erreurs (lignes 100, 400 et 
900). 

US : indique la présence de la fonction 
USR ligne 1310). 

PNT : indique la présence d'un point 
dans un réel (ligne 800). 

NBR : valeur d'un numéro de ligne. 
LNG : longueur d’un numéro de ligne 
(ligne 500). 

INF, SUP, EGA et COM sont utilisés 
pour la détection des opérateurs de 
comparaison. 

VAR et VAR() : notent le type d'une 
variable (lignes 600 à 790). 

ADR, ALI) et A2(12) : représentent 
un stockage provisoire de PTR (lignes 
1330, 1620 et 3730). 


Améliorations 
du programme 


Je pense avoir pris en compte, à défaut 
de la totalité, au moins 99 % des cas 
de figures qui peuvent se présenter 
dans un programme Applesoft. 
J'espère que SNTX les traite tous cor- 
rectement : en effet, le programme 
SNTX a beau avoir été testé sur de 
nombreux programmes Applesoft, il 
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est loin d’avoir eu affaire à tous ces cas 
de figure. Aussi, j'espère qu'il ne reste 
pratiquement plus de « bugs ». 


En ce qui concerne les limitations de la 
vitesse d'exécution et de la taille 
mémoire dont nous avons parlé ci- 
dessus, il est conseillé d'utiliser une ver- 
sion sans REM du programme SNTX 
(obtenue avec le CRUNCHER de 
DAKIN ou AOPTIMIZER). Sans les 
REM, on a la possibilité d'analyser la 
syntaxe de programmes Applesoft 
ayant jusqu'à 110 secteurs sur dis- 
quette (ou faisant moins de 28K envi- 
ron, ce qui est quand même considéra- 
ble — un programme trop gros aboutit 


au message PROGRAM TOO LARGE 
au moment du chargement de SNTX). 
La version sur cassette tolère des pro- 
grammes de 40K au plus. 


Enfin, nous fournissons sur la disquette 
de Pom's le résultat de la compilation 
de SNTX par le compilateur TASC : il 
s'agit du fichier binaire SNTX COM- 
PILE. Son utilisation est un peu diffé- 
rente de celle de SNTX : il suffit d’avoir 
le programme à étudier en mémoire, 
puis de faire BLOAD SNTX COM- 
PILE et CALL 29869 (attention : 
29869 n'est pas l'adresse de début du 
fichier SNTX COMPILE). La suite des 
opérations est la même que pour 


SNTX, à la différence près que SNTX 
COMPILE efface le programme étudié 
quand il à fini (c'est dû à TASC). 

On peut ainsi étudier la syntaxe de pro- 
grammes dont l'adresse de fin, indi- 
quée par PRINT PEEK(175) + 
PEEK(176)°256, est inférieure à 
25856 (donc des programmes ayant 
jusqu'à 95 secteurs ou faisant jusqu'à 
23K environ). Notons que SNTX 
COMPILE n'utilise pas d'adresse supé- 
rieure à 36820, donc peut être utilisé 
tant que la HIMEM reste supérieure à 
ce nombre (en particulier avec PLE qui 
abaisse la HIMEM à 36864). 


4  REM 89 REM ---TESTE G0T0-GOSUR--- 

RH ME RE ME ER RENE 90 GOSUBR JOLIE A1 > 171 END AC ) 
* PROGRAMME SANTX: * 76 THEN ERR = Z:E$ = "GOTO OÙ G0S 
+ ANALYSE SYNTAXICUE + UE": POP : GOTO 100 

* D'UN DROGRAMME EN # 95 RETURN 

# HASIC ASPLESOFT + 993  REM —---SAUT-)}FIN D’ INSTR. —-—- 

HE DE HOME DEN EH ENEDÉREEDEDEHEHE DEGÉE 109 PRINT " "ss: IF ERR = Z OR ERR = 353 T 
5  GOTG 20000: REM INITIALISATION HEN PRINT Eggs" ";: 

8 RE 110 IF ERR ( 8 AND ERR ( )} © THEN PRI 
HE ROHS END NOR DE DEN NE NEED DE DE DE DEEE NE NT CHR$& (7):: REM ERREURS FATALE 
* ROUTINES COURANTES + D BI 


FRRÉERÉERERERÉRERIEREIERX 


120 PRINT ER$(ERR): 


REM MESSAGE D’ ERREU 


D REN ---INCREMENTE LE POINTEUR ET R 
LIT LE PROGRAMME--- | 130 PTR = PTR - 1: REM PARFOIS NECESSAIR 
10 A = PEEK (PTR):PTR = PTR + i: RETURN E 
140 GOSUB 30: GOSUB 10: IF NOT FINI TH 
19 REM ---TESTE SI ERREUR--- EN 140: REM FIN D’ INSTRUCTION? 
20 IF ERR THEN POP : GOTO 100 150 GOTO 10020 
25 RETURN 199 REM ---TEST COMPARATEURS--- 
29 REM ---TESTE FIN DE LIGNE--- 200 SUP = O:INF = O:EGA = © 
SO FINI = O:A = PEEK (PTR): IF A = O OR | Z10 GOSUR 10: IF A = 707 THEN SUP = SUP 
A = 56 THEN FINI = i + 11 IF SUP } 1 THEN ERR = 6: RE 
35 RETURN TURN : REM ) 
39 REM ---TESTE SI CHIFFRE--- 220 IF A = 208 THEN EGA = EGA + 1: IF E 
&O TAN = OA = PEEK (PTR): IF A) = 48 GA } 1 THEN ERR = 6: RETURN : REM 
AND À ( = 57 THEN GOSUB 10:TKN = 
= 230 IF A = 209 THEN INF = INF + 1: IF I 
45 RETURN NF ) i THEN ERR = 6: RETURN : REM 
49 REM ---TESTE SI LETTRE--- { 
30 TKN = O:A = PEEX (PTR): IF A) = 6s | 240 IF A) = 207 AND A ( = 203 THEN Z 
AND À { = 99 THEN GOSUR 10:TKN 10: REM } = OÙ « 
= 250 PTR = PTR — 1:COM = SUP + EGA + INF: 
55 RETURN RETURN 
59 REM ---TESTE (—) OÙ (+)--- 299 REM ---ATTEND FIN D’ INS. -—- 
60 TKN = O:A = PEEK (PTR): IF à = 200 g | 500 GOSUR 50: IF NOT FINI THEN ERR = 3 
R A = 201 THEN GOSUE 10:TKN = i SB$ = "FIN D° INSTRUCTION" 
65 RETURN 3i0 GOTO 100 
69 REM ---TESTE SI OPERATEUR--- 3993 REM ---ATTEND LE TOKEN E--- 
70 TKN = O:A = PEEK (PTR): IF A) = 20 | 400 E = 4i:E$ = ")": GOTO 450 
O AND A ( = 204 THEN GOSUR 10:27 | 405 B = 44:B$ = ",": GOTO 450 
KN = 12: REM + — # / ET = 410 B = S59:B$ = ":": GOTO 450 
72 RETURN 415 B = 40:E$ = "(": GOTO 450 
73 TKN = OA = PEEK (PTR): IF A = 205 D | 420 B = 193:B$ = "TO": GOTO 450 
R A = 206 THEN GOSUR 10:TKN = 1: | 425 B = 194:E#$ = "FN": GOTO 450 
REM AND ET OR 430 E = 196:B$ = "THEN": GOTO 450 
77 RETURN 435 BE = 197:B$ = "AT": GOTO 450 
79 REM ---TESTE (-) OÙ €. )--- &4O EH = 208:B$ = "=": GOTO 450 
80 TKN = OA = PEEK (PTR): IF A = 44 or | 450 GOSUE 10: IF A © }) B THEN ERR = 2 
A = Z0i THEN GOSUR 10:TKN = 1 460 RETURN 
82 RETURN 493 REM ---LIT NR. DE LIGNE--- 
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HS AISAUONENNMRNE 





HSE 


97 





500 NER = O:iNG = © IMAL PAR NOMBRE ! 
519 GOSUR 40: IF NOT TKN THEN 550: REM | 810 GOSUR 920: IF TKN THEN 850: REm EXP 


CHIFFRE OSANT 
520 LNG = ENG + 1: IF LNG } © THEN ERR = | 68#0 GOSUR 315: JF TKN THEN 605: REM POI 
4: RETURN : REM TROP LONG . Ni | 
993 THEN ERR = 4: RETURN : REM NU à FRE 
MERO TROP GRAND 840 RETURN 
540 GOTO 510 850 LNG = O0: GOSUR 60: REM SIGNE 
550 IF LNG = © THEN ERR = 2:E$ = "NUmErR | 860 GOSUE 40: IF NOT TKN THEN RETURN 
O DE LIGNE": REM PAS DE NUMERO 5 REM CHIFFRE : | 
560 RETURN 870 ENG = ENG + i: IF LNG ( = Z THEN 66 
599 REM ---LIT NOM DE VAR. --- O+ REM EXPOSANT D’ AU PLUS Z CHIFF 
600 GOSUR 700: GOTO 660: REM PREND VARI ____ RES d 
ABLE REELLE B80 ERR = S: RETURN 
610 GOSUR 710: GOTO 660: REM PREND VARI | 899 REM -—--TOKEN FACULTATIF --- 
ABLE NUMERIQUE 900 B = 40: GOTO 980: REM ( 
620 GOSUE 720: GOTO 660: REM PREND Var | 705 E = 44: GOTO 380: REM , 
ABLE CHAINE 910 E = 34: GOTO 980: REM " 
650 GOSUB 750: REM VARIABLE QUELCONQUE | 715 E = 46: GOTO 980: REM POINT 
660 VAR(I) = VAR: IF ERR THEN RETURN 320 Es 69: 6070 380: RE" LRQ 
665 GOSUER 300: IF NOT TKN THEN RETURN | 325 B = 171: GCTO 980: REM GOTO 
: REM 950 E = 199: GOTO 980: REM STEP 
670 I = I + 1:VAR(I) = O0: GOSUR 1000:1 = | 955 KE = 155: GOTO 380: REM TO 
I — 1: IF ERR THEN RETURN : Rem | 740 E = i97: GOTG 980: REM AT 
EXPRESSION DE L’ INDICE 345 E = 200: GOTO 980: REM + 
680 GOSUE 905: IF TKN THEN 670: REM V | 350 KE = 196: GOTO 980: REM NOT 
IRGULE 980 TKN = O:A = PEEK (PTR): IF A = & TH 
630 GOTO 400: REM ) EN GOSUR 10:TKN = 1 
699 REM ---LIT UN NOM DE TABLEAU OÙ DE | 730 Leo 
VARIABLE SS INDEX--- 393 REX 


700 BSOBUR ZOOIESN =. (VER 7) OP ROMA) TN nr 


ETURN : REM PREND VARIABLE REELLE | *EXPRESS. NUMERIQUE * 
710  GOSUB 7AOIERR = AR 2 7 REUTERS 1 
RN_t REM PREND.VARIABLE, NUMERIQUE | 1000 GOBUB 604 IF TKN THEN 10001 REM 81 





720 GOSUB 7S02ERR = (VAR € 3) 2) x 72 R| © GNE Le ve 
ETURN : REM PREND VARIABLE CHAINE | 1905 GOSUE 9504 IF TKN THEN 1000: REM N 
750 GOSUB 50: IF NOT TKN THEN ERR = 3: | DR, Lire La ; 
A$ = "VGRIABLE": RETURN : REM PRE 109109 GOSUR 10: IF À = 40 THEN 1040: REMm 
: MIERE LETTRE a ne 
7 760 GOSUR 40: IF TKN THEN 760: REM CHir | 1915 IF À € } 194 THEN 1100 
< BE 1019 EM — EN — 
né RE EM FONCTION 
ë R € ) © THEN GOSUR i0: REM VAR= | EM Co De 
ai à SI VARIABLE REELLE, j Si ENTIER 1940 GOSUR 1000: IF ERR THEN RETURN : 
si E ET 2 SI CHAINE lens 
L 250 -RETLEN 1050 GOSUR 400: IF ERR THEN RETURN : R 
793 REM ---LIT UN NOMBRE--- À EM D 
890 PNT = 0 10960 GOTC 1900 , 
805 PNT = PNT + 1: IF PNT ) 2 THEN ERR = | 1100 IF À © } 215 THEN 1200 
St RETURN : REM 1 SEUL POINT DEC | 1109 REM --- SCRN( -—-— 


1110 GOSUB 1000: IF ERR THEN RETURN : 
REM EXPRESSION i 
 U DAPRES ? 1120 GOSUR 405: IF ERR THEN RETURN : R 
Tr ne EM VIRGULE 
D Et cl 1130 GOTO 1040: REM EXPRESSION 2 ET ) 
1135 IF ERR THEN RETURN 
1200 IF A € ) 227 AND A ( ) 229 AND A 
{ } 230 THEN 1300 


1209" VREMI=T7Tr ENS VOL ET ASE —-- 
1210 GOSUR 415: IF ERR THEN RETURN : R 
EM ( 


1220 GOSLR Z000: IF ERA THEN RETURN : 
REM EXPRESSION CHAINE 
1230 GOTO 1050: REM ) 
1300 IF À  } 213 AND À  } Z14 AND A 
{ } 217 THEN 1400 
1509 /REM == USR, FRE ET PROS! =—— 
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IF À = 213 THEN US = 1 


1310 US = 0: 

1520 GOSUR 415: 
EM ( 

1350 AZ(IZ) = PTRIIZ = 12 + 1: GOSUE 100 
O:12 = 12 —- i: IF ERR = O©O THEN 13 
SO: REM ARGUMENT NUMERIQUE 

1335 IF ERR  } 7 THEN RETURN 

1340 PTR = AZ(IZ):ERR = O0: GOSUR £000: I 

F ERR  } O©O THEN RETURN : REM A 

RGUMENT CHAINE 

GOSÜER 400: IF ERR THEN 

EM ) 

13560 IF US THEN ERR = 10: 
ERREUR FORCEE 


IF ERR THEN RETURN : KR 


RETURN «= R 


RETURN : RE 


1570 GCOTO 1900 

1400 IF À « 210 OR À } 226 THEN 1500 

1409 REM --- SGN, INT, ABS, PDL, SGR 
> RND, LOG, EXP, COS, SIN, TAN 
, ATN, PEEK --- 

1410 GOTO 10530: REM (PRGUMENT) 

1500 IF À < ) 46 AND (À « 48 OR À > 57 
) THEN 1600 

1509 REM --- NOMBRE —--—- 

1510 PTR = PTR — 1: GOSUR 800: IF ERR TH 
EN RETURN 


1520 GOTG 1900 


1600 PTR = PTR —- 1: IF À = 54 DR A 


OR (A } = 251 AND A = 2534 
HEN 1700: REM DEBUT D’EXPRESSID 
CHAINE 

16:10 IF À ( 65 OR À } 90 THEN ERR = 6: 
RETURN 

1BI9N VREM == VARIABLE = 


1620 RP1(I1) = PTR:I1 


= Ji + i: GOSUR 650 
RÉ EN Ed OF IF ERROTHEN 


RETURN 


1630 IF VAR(I) = Z THEN PTR = Ri(Ii): G 
OTG :700: REM DEBUT D'EXPRESSION 
CHAINE 

1649 GGTO 19300 

16939 REM --- COMPAR. CHAINES ——- 

1700 GOSUR 2000: IF ERR THEN RETURN : 
REM EXPRESSION CHAINE 

1710 GOSUR 200: IF COM = © THEN ERR = 7 
RETURN : REM } «( OÙ = 

1720 GOSUR ZO00: IF ERR THEN RETURN : 
REM EXPRESSION CHAINE 

LOS REMISE DRERATEUMNSL Sr 

1900 GOSUR Z00: IF COM THEN 1000: REM ( 

} OÙ = 

19310 GOSUR 70: IF TKN THEN 1000: REM + 
SRTr/ RO 

1920 GOSUR 75: IF TKN THEN 1000: RE“ AN 
D OÙ OR 

1930 RETURN 

1999 REM 


RERERHE HORDE DE REED DE REED EEE EEE 
* EXPRESSION CHAINE * 
HR REDON HE DE RER RTE DEEE EE 


£000 GOSUR 945: IF TKN THEN 2000: REM + 


2010 GOSUR 10: IF 4 = 46 OR (A } -= 48 
AND À € = 57) OR À = i94 OR À = 
201 OR {À } = 210 AND À = 230 

AND À ( } 228) THEN ERR = 7: RE 

TURN * REM TYPE CHAINE? 

Z020 IF À © } 228 AND À  } 231 THEN 
2100 

ZOZ9 REM --- STR$S ET CHR$ --—- 

2050 GOSUR 415: IF ERR THEN RETURN : R 
EM ( 
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72040 GOSUR 1000: IF ERR THEN RETURN : 
REM ARGUMENT 

2050 GOSUR 400: IF ERR THEN RETURN : R 
EM ) 

2060 GOTO 2300 

Z100 OF À © } 232 AND À ( } 233 THEN 
Z2Z00 

Z2109 REM --- LEFTS$S ET RIGHTS —-—— 

2110 GOSLE 415: IF ERR THEN RETURN : R 
EM ( 

2120 GOSUR ZO000: IF ERR THEN RETURN : 
REM EXPRESSION CHAINE 

2130 GOSUR 405: IF ERR THEN RETURN : R' 
EM VIRGULE ° 

2140 GOTO Z04O0: REM ARGUMENT ET ) 

2200 IF À « } Z34 THEN 500 

Z2Z09 REM -—- MIDS —--—- 

ZZi GOSUR 4135: IF ERR THEN RETURN : R 
EM 

2220 GOSUR 2000: [IF ERR THEN RETURN : 


REM EXPRESSION CHAINE 
250 GOSUR 405: IF ERR THEN RETURN : R 
EM VIRGULE 
ZZ40 GOSUR 1000: IF ERR THEN 
REM EXPRESSION 1 
GOSUR 908: IF THN THEN ZO4O: REM 4 
RGUMENT ET ) SI VIRGULE 
60 GOTO 2050: RE" ) 
Ir À ( 65 OR À } 930 THEN Z400 
REM --— VARIABLE --- 


RETURN : 


2310 PTR = PTR — 1: GOSUR 6:0: IF ERR ÿH 
EN RETURN 

Z3:20 GOTO 2900 

Z4OO IF À ( } 34 THEN 2500 

2409 REM --- CHAINE -—- 

2410 GOSUE 10: IF À = Q THEN ERR = 6: R 
ETURN 

2420 IF À  } 34 THEN Z4i0: REM FIN DE 
LA CHAINE? 

Z450 GOTO Z900 

29300 IF À { } 4Q THEN ERR = 6: RETURN 

LOI TNREMSE EXT 

2510 GOSUR 2000: IF ERR THEN RETURN : 
REM EXPRESSION CHAINE 

25920 GOTO 2050: REM ) 

2899 REM --- OPERATEURS --- 

2900 GOSUR 345: IF TKN THEN 2000: REM + 

Z310 GOSUR 70: IF TKN THEN ERR = 7: RET 
LAN SMREMCTMRS/MET ES 

2920 RETURN 

2999 REM 


KR EN RE DE DE DE DEEE EEE EN 
* ETUDE DES TOKENS +*# 
KR RE IEEE DEEE EEE EEE NE 


3099 REM --- FOR..T0 ——- 

3100 GOSUR 700: GOSUR 20: REM VARIAELE 
REELLE SANS INDEX 

3119 GOSUR 440: GOSUR 20: REM = 

SiZ0 GOSUR i000: GOSUR 20: REM EXPRESSI 
ON 1 

3130 GOSUR 420: GOSUR Z0: REM TO 

5140 GOSUB 1000: GOSUR 20: REM EXPRESSI 
ON Z 

3150 GOSUR 950: IF TKN THEN 3800: REM S 
TEP 

35160 GOTO 300 

STI RENE SINENRS——— 

3200 GOSUR 30: IF FINI THEN 100: REM PA 
S DE NOM DE VARIAELE 

35210 GOSUR 700% GOSUR Z0: REM VARIABLE 


5 


RENNES 


£ 


FMCN 


ANS 


39 





3220 


3300 
2099 
3400 


3410 


5740 
3750 


3799 


5800 


35833 
3900 


3310 


3999 
4000 


4910 
4020 
4999 
4100 


REELLE SANS INDEX 


GOSUER 905: IF TKN THEN 52710: REM V 
IRGULE 
GOTO 30ù 
REM ——— DATA —-—- 
ERR = 127: GOTS 100: REM ERREUR FORCE 
EE 
RENE RINPETEe=— 
GOSUR 910: IF NOT TAN THEN 3450: 
REM 4! 
GOSUER 10: IF À = © THEN ERR = 5:E$ 
= "VARIARLE": GOTO 100 
IF À © } 34 THEN 3410: REM FIN DE 
LA CHAINE? 
GOSUER 410: GOSUR Z0: REM POINT-VIR 
GÜLE 
REMISE = 
GOSUR 650: GOSUR 20: REM VARIARLE 
GOSUR 905: IF TKN THEN 3450: REM V 
IRGULE 
GOTO 300 
REMI==NDELS == 
GOSUR 500: GOSUR 20: REM LIGNE 1 


GOSUER 405: GOSUR Z0: REM VIRGULE 
GOTO 4450: REM LIGNE Z 
REMSrSNDIMIESS 

GOSUR 750: GOSUR Z0: REM TARLEAU 
GOSUR 415: GOSUR 20: REM ( 

GOSUER 1000: GOSUR 20: REM DIMENSIO 
N 


GOSUB 905: IF TKN THEN 3620: REM V 
IRGULE 

GOSUER 400: GOSUR ZO: REM ) 

GOSUB 905: IF TKN THEN 3600: REM V 
IRGULE 

GOTO 300 

REMV==- PRINT = 

GOSUR SO: IF FINI THEN 100: REM FI 
N D’ INSTRUCTION 

GOSUR 10: IF À = 44 OR A = 59 THEN 


3700: REM VIRGULE OÙ POINT-VIRGU 
LE 

IF À = 192 OR À = 195 THEN GOSUR 
1000: GOSUÜB Z0+: GOSUR 400: GOSUB 
20: GOTO 3700* REM SPC( ET TAR( 

PTR = PTR —- 1:ADR = PTR: GOSUB 1000 
IF ERR = 7 THEN 5750: REM EXPRE 
SSION NUMERIQUE 

SOSUR 20: GOTO 53700 

PTR = ADR:IERR = Où GOSUR 


000: GOSÙU 


B 20: GOTO 3700: REM EXPRESSION C 
HAINE 

REM --- GPEED=, HCOLOR=, IN#, COLOR 
=,HIMEM:,LOMEM:,VTAB,  HTAR, SCAL 
E=, ROT=, PR# --- 

GOSUB 1000: GOSUB 20: GOTO 300: RE 
M EXPRESSION UNIQUE 

REM -—- CALL --- 


GOSUR 1000: GOSUR 20: REM EXPRESSI 
ON 


ERR = 9: GOTO 100: REM ERREUR FORCE 
E 
REMLS==NPLOMMETNS PURES 
GOSUR 1000: GOSUR ZO: REM EXPRESSI 
OK 1 


GOSUR 20: REM VIRGULE 
REM EXPRESSION 2 


GOSUER 405: 
GOTOQ 35800: 


REM == TNEINRET 
GOSUE 1000: GOSUR ZO: REM EXPRESSI 
ON 1 


&110 
4120 


41350 
4iao 
4199 
4200 


4210 


4220 
4293 
4300 
43510 


4320 
4330 


4540 


4550 
4399 
4800 
447 
4450 
4460 
4493 
8500 
4510 


4520 
4539 
4600 
L610 
4620 


4650 
46933 
&700 
4710 
4793 
4800 
48i0 


480 
48350 


4840 
4893 
47300 
4999 
5000 
5093 
5100 
5110 
5120 
5150 


Si40 
5193 





GOSÜE 20: 
GOSUR 20: 


REM VIRGULE 
REM EXPRESSI 


GOSUE 405: 
GOSUR 1000: 
ON Z 
GOSUER 455: GOSUR Z0: REM AT 

GOTG 3800: REM EXPRESSION 3 

REM ——— DRAW ET XDRAW --- 

GOSUR 1000: GOSUR Z0: REM EXPRESSI 
ON 1 

GOSUR 9340: 
EM AT 

GOTO 4000: REM EXPRESSIONS Z 
REMISES NREETAS= 
GOSUR 9535: REM TO 
GOSUR 1000: GOSUEK 


IF NOT TKN THEN 500% R 


ETS 


REM EXPRESSI 


20: 


ON i 
GOSUE 405: GOSUR 20: REM VIRGULE 
GOSUB 1000: GOSUR Z0: REM EXPRESSI 
ON 2 
GOSUR 955: IF THKN THEN 4510: REM T 
(a) 
GOTO 300 
REMI=--SONERRE=—- 
GOSUR 90: REM GOTO OÙ GOSUB 
REMS=--SOUTUNE LE DOS 
GOSUR 500: GOSUR Z0: REM LIGNE 
GOTO 300 
REMY=S=NSTORE ET RECALE = 
GOSUR 750: GOSUR Z0: REM TABLEAU 


IF VAR = 2 THEN ERR = 7: GOTO 100: 
REM TABLEAU NUMERIQUE SEULEMENT 


GOTO 3500 

RES NETie= 

GOSUR 650: GOSUR Z0: REM VARIABLE 

GOSUER 440: GOSUR ZO: REM = 

IF VAR(O) ( Z THEN GOSUE 1000: 60 
SUR 20: GOTO 300: REM EXPRESSION 
NUMERIQUE 

IF VAR(O) = ZX THEN GOSUR 2000: GO 


SUB ZO: GOTO 300: REM EXPRESSION 


CHAINE 

REMITENRÈNLe— 

GOSUR 30: IF FINI THEN 100: REM PA 
S DE LIGNE 

GOTO 4450: REM LIGNE 

REMMESETE, STHENI ES 

GOSUR 1000: GOSUR ZOO: REM EXPRESSI 
ON 

GOSUR 925: IF TKN THEN 4450: REM G 
OTO 

GOSUR 450: GOSUR ZO: REM THEN 

GOSUR 40: IF TKN THEN PTR = PTR - 


is GOTO 4450: REM NUMERO DE LIGNE 
GOTO 10015: REM SUITE 


REM ——— AMPERSAND --- : 

ERR = 8: GOTO 100: REM ERREUR FÜRCE 
Es 
RENTREE 

ERR = 11% PRINT " "rERS(ERR):PTR = 
NL: GOTO 10000: REM ERREUR FORCEE 
REM ——-— ON..G0OTO, 

ON... GOSUB —-—-— 

GOSUB 1000: GOSUR ZO: REM EXPRESSI 
ON 


GOSUR 90: REM GOTO OÙ GOSUB 
GOSUE 500: GOSUR 20: REM LIGNE 


40 


GOSUR 905: IF TKN THEN 5120: REM V 
IRGULE 
GOTO 300 
REM ——-— WAIT —--- 
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5200 GOSUR 1000: GOSUE Z0: REM EXPRESSI 
ON i 

5210 GOSUR 405: GOSUR 20: REM VIRGULE 

5220 GOSUR 1000: GOSUR 70: REM EXDRESSI 
ON Z 

5250 GOSUR 905: IF TKN THEN 36800: REMm E 
XPRESSION % SI VIRGULE 

5240 GOTO 300 

5299 REM --- DEF -—- 

5300 GOSUR 475: GOSUR 20: REM FN 

5310 GOSUB 700: GOSUR Z0: REM VARIABLE 
REELLE SANS INDEX 

5320 GOSUR 415: GOSUR 20: REM ({ 

53530 GOSUR 700: GOSUR Z0: REM VARIABLE 
REELLE SANS INDEX 

5340 GOSUR 400: GOSUR 20: REM ) 

5350 GOSUR 440: GOSUR 20: REM = 

5360 GOSUR 1000: GOSUB 20: REM EXPRESSI 
ON 

5370 GOTO 300 

53599 REM --- LIST --- 

5400 GOSUB 30: IF FINI THEN 100: REM PA 
S DE NUMERG DE LIGNE 

5410 GOSUR 80: IF TKN THEN 5450: REM VI 
RGULE OÙ TIRET 

5470 GOSUR 500: GOSUR 20: REM LIGNE 1 

5450 GOSUR 80: IF NOT TKN THEN 300: RE 
M VIRGULE OÙ TIRET 

5450 GOSUB 30: IF FINI THEN 100: REM DA 
S DE LIGNE Z 

5460 GOTO 4450: REM LIGNE Z 

5493 REM --- GET —-—- 

5600 GOSUR BZO:ERR = 6 * (ERR = 7) + £R 
R: GOSUR 20: REM VARIABLE NUMERIG 
LE CONSEILLEE (SI ERR=7 ALORS ERA 
=13) 

5510 GOSUR 905: IF TKN THEN 5500: REM 
VIRGULE 

5520 GOTO 309 

3999  REM 

FRERE RERIERERIRÉR EIRE X 

* DEBUT D’UNE LIGNE + 

CRLTLILSLSISSLSLLLILLLISISS. 

10000 IST = O0: GOSUR 10:NL = A: GOSUR i0 
NL = À * 256 + NL: IF NL = O THE 
N 1Z000 
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19005 

10C06 
19010 
10015 
10070 
10630 


19040 


19050 


10060 


10339 


11000 


11010 


11020 


11050 


11999 


# 7256 + LN 
INVERSE : DRINT " LIGNE ":LNs" 
NORMAL : REM LIGNE 
IST = IST + it INVERSE +: PRINT IST 
:2 NORMAL : REM INSTRUCTION 
GOSUR 10: REM PREMIER OCTET DE L’ 
INSTRUCTION \ 
IF A = 58 THEN 10010: REM FIN D’1 
NSTRUCT ION 
IF A = O THEN 10000: RIM FIN DE à 
IGNE 
IF (A) = 65 AND À ( = 90) THEN 
A = 170:PTR = PTR - i: REM LET I 
MPLICITE 
ERR = O0: IF A ( iZ8 OR A) = 192 
THEN ERR = 1: GOTO 100 
1 = OtI1 = O:1Z2 = O0: REM POINTEURS 
DES PILES DE VAR, Ai ET AZ 
REM ---EN VOITURE SIMONE! 


GOSUR IO!:LN = 1OfLN = À 


ON À - 127 GOTO 500, 3100, 3200, 330 
9, 3400, 3500, 3600, 3450, 300, 500, 580 
©, 3800, 3900, 4000, 4100, 4100 

ON À — 145 GOTO 3500, 300, 3800, 4300 
, 4200, 400, 3800, 500, 3800, 5800, 5300 
; 200, 300, 300, 500, 500 

ON À —- 159 GOTO 35800, 300, 5800, 580 
O0, 3800, 4400, 300, 4500, 4500, 53800, 46 
O0, 4450, 4700, 4800, 300, 49300 

ON À —- 175 GOTO 4450, 500, 5000, 300 
, 2100, 5200, 300, 300, 5300, 4000, 3700 
: 300, 5400, 300, 5500, 300 

REM 


RER DE DE DE DE DEEE EE DÉS 
* FIN DE L'ANALYSE * 
RER RR RU HE NE DEN ME DE DEHEDEDEJEEJEEHE 


12000 


12050 
19997 


PRINT : PRINT "VOULEZ-VOUS REVENI 

R AL! PROGRAMME INITIAL?"; 

GET A$: IF A$ © > "OU" AND A$ « 

PANETAENAEEO0IO 

PRINT AS: IF A$ = "O" THEN POKE 
105, PEEK (1912): POKE 104, PEEX 
(1915): DOKE 175, PDEEK (1914): PD 

KE 176, PEEK (1915): REM RESTAURE 
LES POINTEURS 

END 

REM 


RER DE DEEE DE DEN EE DEEE DEEE 
* INITIALISATION +*# 
HE DORE RE RENE DEHEDEE DE EE EEE E 


Z0000 
20010 


26020 
20050 
Z0040 
20050 
20099 
Z0100 


£0110 


FTEXT : 
PRINT 

IGUE": 
RTPKH 127: 
1 PRINT 
HTRE 3: 
1987": 


HOME 3: VTAB 8: ATAR 5 
"PROGRAMME D’ ANALYSE SYNTAX 
PRINT : PRINT 

PRINT "PAR OLIVIER HERZ" 


PRINT "(C) POmM’S OCCTORRE 
BRINT =: PRINT : PRINT 
PRINT : PRINT "LIGNE DE DEPART ": 
5 POKE — 16368,0: INPUT AS$S:HEG = 

VAL (A$) 
DIM R1(10),AZ(10),VAR(10) 


REM -—--INITIALISE LE TÉE 
LEAU DES ERREURS--- 
DIM ER$(13): FOR ERR = © TO 15: R 


EAD ERS(ERR): NEXT 
DATA CORRECT, INSTRUCTION NON RECO 
NNLE, ATTENDU, ATTENDUE, NUMERO DE & 
IGNE } 6599393, NOMERE INCORRECT, EXP 
RESSION INCORRECTE 
DATA CONFUSION DE TYPE, INSTRUCTIO 


EL 


R 


B.I.P. Information 


Ldeltl'A'e]1i + \34JE 2) 


A - CARTES MEMOIRES LEGEND U.S.A. 


en promotion: Carte 128K - FF. 5025 HT 
Carte 64K - FF. 3050 HT 


Mémoire supplémentaire 
et Vitesse accélérée. 


Ces Cartes Interfaces comportent : 
— La carte Mémoire Interface. 


— Le Manuel d'Utilisation. 
(Français en option). 


— Les programmes suivants ouverts et 
d'utilisation facile : 


e V.C. Plus, Offre 82 K ou 136 K mémoires 
(80 colonnes en option) 
Utilisables pour Visicalc. 


Disque émulateur, simule Drive 
d'accès rapide DOS (CP/M ou 
Pascal en option.) 


Sélecteur de Diapositives, qui donne 
instantanément 16 images par Carte 128 K 


Mémory Master, qui libère 10 K de 
l'Apple ; Flipps DOS 3.3. et 32. 


Mémory Test, pour tester les mémoires. 
Hires Demo, et autres. 


Les Cartes d'extension Mémoires LEGEND 
sont fiables et Garanties 1 an. 


B - LOGICIEL GRAPHIQUE ARTISTIQUE 


en promotion: F.F. 650 HT 


CEEMAC langage graphique et un album. 
« ORGUE DE FEU » ou « SPARKEE » 
à votre choix. 


Pour le plaisir de vos yeux, des images 
mouvementées et interactives, jamais 
exactement les mêmes. Suite d'images 

« SCORES » créées par d'autres (Album) 
ou par vous mêmes (CEEMAC). 


(SA À 22 


22, rue Joseph Dijon - 75018 PARIS 
Tél. 255 44 63 





f" Q 
AT EE | 


ZOZ200 PTR = 





N AMPERSAND, INSTRUCTION CALL, FONC 
TION USR, INSTRUCTION REM, INSTRUCT 
ION DATA, GET NUMERIELE 


REM —--CHERCHE LA LiG 
NE DE DEFART--—- 
PEEK (197) + PEEK (1915) 
# 256: REM DEBUT (STOCKE) DU PROG 
ROMME À ETUDIER 
20710 GOSUR 10!:NL = A: GOSUK 10:NL = À 


# 256 + NL: IF NL = 0 THEN 12000: 
REM DEBUT DE LIGNE 


GOSUR iO:LN = 4: GOSUR iO:EN = 4 


+ 256 + LN: IF LN >) = HEG THEN 1 
0006: REM RON NUMERO DE LIGNE 
20730 PTR = NL: GOTO 20210: REM GAUT-)FI 


3 


io 


29 


N DE LA LIGNE 


BEM HR RORROEOE ME ER HE ME DE DEEE RO RE EE de 
& FABRIQUE LE FICHIER # 
+ EXEC QUI CHORGE SNTX% 
*+ AU-DESSUS Du ERÇ- + 
k GRAMME À ETUDIER # 
HER DE EN E HE EEE DEEE EE GE HER EEK 
Dé = CHR$ (13) + CHA& (4) :NS 
= MSYNIAXE": REM NOM DU FIC 
HIER EXEC 
RE ECRITURE DU FICHIER 
BRINT Dé'OHEN'NSDS#'"'DELETE"NS EC 
B'OPENVNSDS'HARITENNSI REM FC 
RME COMBACTEE DE L° OUVERTURE 
DU FICHIER 
REM 


105,104: DEBUT PROGRAMME 
175,176: FIN PROGRAMME 


30 PRINT MORE 1912, PEER (OS) 290 
KE 19:53, PEEK{(1Q4)" 

40 RBRINT "AROKE 1914, PEER\I75) 240 
KE 1915, PEEK{176)": REM ST0C 
KAGE DES POINTEURS DU SROGRA 
MME À ETUDIER 

SO PRINT "ROKE 105, BECK (175) £ He 
ESLOGARREENROL 7/67" 

60 PRINT "BOKE PEEK(IQS)+PEEK(I0 
HET OB—L: Qc REME: DÉALIP ONE ON 
TX=FIN DU PROGRAMME INITIAL 

70 PRINT "LORD SNTX': REM ON CHA 
RGE SNTX 

80 PRINT "DEL j,0": REM ON MET L 
ES AUTRES POINTELURS EN ALACE 

SQ PRINT MRUN':3: REM ON LANCE GK 
TX 

100 PRINT D$'"CLOSE"NSD#"LOCKENS: 

REM FORME COMBACTÉEE DE LA FE 
ERMETURE DU FICHIER 
ESS REM KERERERERRRIEERÉREX 





%+  OCTOBRE 19382: * 
#+{C) OLIVIER HERZ # 
* BOUR FOM'S x 
ÉÉSÉTTSSITIS I TT ST. 
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La tortue est une petite bête qui se 
déplace sur l'écran avec une plume 
pour faire des dessins. Elle obéit à deux 
ordres de base: AVANCE et 
TOURNE. Pour pouvoir la program- 
mer et profiter du BASIC Applesoft, de 
nouvelles instructions ont été créées 
grâce à l'ampersand (&). Ainsi, sans 
perdre les instructions HPLOT ou 
DRAW, on peut, après avoir fait 
BRUN TORTUE&, multiplier les possi- 
bilités graphiques de l'Apple. 


Mode d'emploi 
de la tortue 


Dans les définitions ci-dessous, les 
paramètres des différentes instructions 
sont des variables ou des expressions 
arithmétiques en BASIC. Dans les 
exemples, on utilise les variables 
A,X,Y,N qui peuvent être remplacées 
à loisir par des constantes ou des 
expressions. Tous les calculs sont effec- 
tués en nombres réels, mais les coor- 
données de la tortue et son angle 
d'orientation (exprimé en degrés) sont 
convertis après arrondi en nombres 
entiers positifs (X-<280, Y <192 et A< 
360) pour tous les déplacements. 

&el : initialisation 

L'instruction [&IN] initialise la tortue. 
Selon la valeur de la variable N, on 
passe en mode HGR [&l1], HGR2 
(&12] ou HGR pleine page [&13]. La 
tortue est placée au centre, tournée 
vers la droite [&P140,96,0], plume 
levée [&L]. Cette instruction n’est pas 
tout-à-fait identique à HGR car elle 
efface l'écran AVANT de l'afficher, ce 
qui évite de montrer les restes du der- 
nier affichage graphique. Il est indis- 
pensable d’initialiser la tortue ou au 
moins de la centrer avant de l'utiliser au 
début, sinon la position de départ est 
indéterminée. 


&E : écrire sur une page 


[&E1] ou [&E2] indique sur quelle 
page va s'effectuer la prochaine écri- 
ture, qu'elle soit visible ou non... Ne 
pas confondre avec l'instruction [&MN] 
qui affiche la page N sur l'écran. Il est 
donc facile de dessiner sur la page qui 
n’est pas actuellement visible. 
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Tortue Ampersand 


&M : montrer la page HGR 


[&MN]affiche sans l’effacer la page de 
haute résolution graphique numéro N. 
Si N=O, on repasse en mode texte 
sans modifier ni la position du curseur, 
ni l'affichage du texte, ni la taille de la 
fenêtre. Si N= 1, l'affichage se fait en 
mode mixte page 1, c'est-à-dire avec 
les quatre lignes de texte en bas de la 
page. Si N=3, l'affichage de la page 1 
se fait en pleine page. Si N=2, affi- 
chage pleine page de la page 2. 


&R : rideau 


[&RC] recouvre l'écran avec la couleur 
C. Le numéro de la couleur est com- 
pris entre 0 et 8. Les nombres de 0 à 7 
sont les couleurs usuelles. Le nombre 8 
représente la couleur inverse (l'écran 
est passé en négatif). La couleur d'affi- 
chage en cours pour la tortue n’est pas 
modifiée. L'instruction [&R] travaille 
sur la page active (celle indiquée par 
[&E]). 


&C : centrer la tortue 


[&C]place la tortue au centre de l'écran 
et la tourne vers la droite. L'instruction 
[&C] est équivalente à [&P140,96,0]. 
La ligne jusqu’au centre de l'écran n’est 
tracée que si la plume est baissée. 


&P : placer la tortue 


[&PX, Y,A] place la tortue au point de 
coordonnées (X,Y) avec un angle À 
par rapport à l'horizontale. [&P0,0,0] 
place la tortue en haut à gauche de 
‘écran et [&P279,191,0] la place en 
bas à droite. Les trois paramètres peu- 
vent être modifiés indépendamment. Il 
suffit que les deux virgules soient pré- 
sentes dans l'instruction. Tout champ 
vide correspond à un paramètre non 
modifié. [&PX,.], [&P,Y,], [&P,,A] ou 
[&PX,Y,] sont par conséquent licites. 
Pour A =0, la tortue est tournée vers la 
droite, pour A = 90 vers le haut, pour 
A=180 vers la gauche et pour 
A=7270 vers le bas. Ainsi, A= 270 est 
équivalent à A=—90. 


&L : lever la plume 


Si la plume est levée, la tortue se 
déplace sur l’écran sans laisser de trace. 
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&B : baisser la plume 


Après [&BC], la tortue trace son che- 
min sur l'écran dans la couleur C. Il faut 
remarquer que [&L] n’est pas identi- 
que à [&BO0] : si la plume est levée, 
l'écran n'est pas modifié ; mais si la 
plume est baissée en noir, la tortue 
efface l'écran sur son passage. 


&A : avancer 


[&AD] avance la tortue d'une distance 
D dans la direction vers laquelle elle est 
tournée. Une distance négative corres- 
pond à une tortue qui recule. 


&T : tourner la tortue 


[&TA] tourne la tortue d’un angle A, 
exprimé en degrés, par rapport à sa 
position précédente. La valeur de A 
sera positive pour tourner dans le sens 
inverse des aiguilles d’une montre (sens 
trigonométrique positif). [&T180] fait 
faire demi-tour à la tortue. 


&S : simuler l'avance 


Permet de calculer l'avance de la tortue 
sans la déplacer, ainsi les erreurs de 
débordement peuvent être contrôlées, 
et le déplacement peut être dissocié du 
calcul des coordonnées (voir [&0] et 
[&V]). 

On ne peut pas simuler plusieurs avan- 
ces successives : une seule est permise 
à la fois. 


&O : où est la tortue ? 


Renvoie la position et l'orientation de la 
tortue dans trois variables réelles quel- 
conques du programme. Après exécu- 
tion de [&OX, YA], les variables X et 
Y contiennent les coordonnées de la 
tortue et À l'angle qu'elle fait avec 
l'horizontale. 


Attention ! Dans cette instruction, X, Y 
et À doivent être exclusivement des 
variables réelles simples. 


Les contenus de X, Y et A seront 
modifiés à l'exécution de l'instruction. 
Les valeurs retournées dans X, Y et A 
représentent la position fictive de la tor- 
tue après exécution du déplacement 
simulé par l'instruction [&S]. 
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Si l'instruction [&O] est exécutée après 
un déplacement réel de la tortue (ins- 
tructions &A &P 8C &l et &V), on 
obtient dans X, Y et A la position réelle 
de la tortue à cet instant. 


Il faut remarquer que l'instruction [&S] 
n'influence que les coordonnées de la 
tortue, l'angle retourné par l'instruction 
[&O] est donc toujours l'angle effectif 
de la tortue. 


L'instruction [&O] permet de contrôler 
si la tortue est encore sur l'écran après 
[&S], mais peut aussi servir à mémori- 
ser la position réelle de la tortue pour la 
replacer en un point particulier avec 
[&P] après un petit détour. 


&V : valider l'avance 


Après avoir simulé l'avance de la tortue 
avec [&S] et vérifié qu'elle est toujours 
sur l'écran avec [&O], on peut valider 
le déplacement par [&V]. Cette ins- 
truction ne fait rien si aucun mouve- 
ment n’a été simulé précédemment. 
Par exemple, [&A120] fait la même 
chose que [&S120;V] ou 
[&S120:&V]. 


Instructions composées 


On peut, comme nous venons de le 
voir à la fin du paragraphe précédent, 
composer plusieurs instructions derrière 
un même symbole ampersand. Il suffit 
de les séparer par un point-virgule. 


il ORG #$9150 
2 QBJ 800 
3 NLS 


&x TORTUE  AMPERSAND 


x 
x 
x 
8 x PAR J,DUMA x 
x 
10 x 22/53/82 x 

x 





Par exemple [&l:&R8:&A123] peut 
s'écrire plus simplement [&l:R8:A123]. 


On peut ainsi tracer un carré grâce à 
l'instruction [&I1;:B3;:A25;:T90: 
A25;T90;A25;T90:A25;:L]. 


Remarques générales 


On peut utiliser les instructions graphi- 
ques habituelles en même temps que la 
tortue. La tortue n'est pas influencée 
par l’utilisation du HPLOT, car tous ses 
mouvements sont calculés entre sa 
position initiale TORTUE.X-Y (valeur 
entière) et TT.X-Y (valeur réelle) et sa 
destination représentée par BUT.X-Y 
et BT.X-Y. 


Par contre, si l'on fait HPLOT TO X,Y 
après avoir utilisé la tortue, on trace 
une ligne entre la position de la tortue 
et le point X,Y. Si on fait ensuite 
[&AD)] la tortue avance alors de D à 
partir de sa position précédente et non 
à partir du point X,Y. 


De même, la couleur de la tortue est 
mémorisée dans TORCOLOR. Cette 
couleur a une influence sur celle des 
lignes tracées par HPLOT, mais HCO- 
LOR n’a pas d'effet sur la couleur de la 
tortue. Ainsi, HCOLOR=2:8&B3: 
HPLOT10,10 va marquer un point 
blanc (de couleur 3). 


Conclusion : pour éviter toute confu- 
sion, utilisez [&P] de préférence à 
HPLOT. En outre, cela transformera 
votre tortue en lièvre. 


Chargement 
du programme 


Pour utiliser la tortue, il suffit de faire 
[BRUN TORTUE&]. Le programme 
est chargé en mémoire entre les adres- 
ses $9150 (37200) et $95AC (38316). 


Il est donc situé juste sous le DOS. Les 
pointeurs de l’ampersand sont alors ini- 
tialisés à l'adresse de début de pro- 
gramme : 


Début du programme en 

$916D (37229) 

Pointeurs : 

$3F5 (1013) = $4C (76 JMP) 

$3F6 (1014) = $6D (109) 

$3F7 (1015) = $91 (145) 

Un CLEAR est alors généré et le pro- 
gramme donne la main à l’Applesoft 
par un saut à $D43C. On peut utiliser 
les nouvelles instructions aussi bien en 
mode immédiat qu’en mode différé. 
Si l'on veut changer TORTUE& par 
programme, il ne faut pas utiliser 
BRUN car le programme serait inter-' 
rompu et le contrôle redonné au 
niveau de commande du BASIC. Il 
faut alors, au début du programme uti- 
lisateur, faire un BLOAD et initialiser 
les pointeurs de la manière suivante : 


10 HIMEM: 37200 

20 PRINT CHRS(4)«BLOAD 
TORTUE&» 

30 POKE 1013,76 : PORKE 
1014,109 :POKE 1015,145 

40 REM suite du programme. 


À vous de jouer. 


5? (A) OU STXERR 
21 VIRGULE EGU $DEBE 5? + OU STXERR 


23 ENTIERI EQU $E6F8 
24 ENTIERZ EQU $Ei05 
25 EXPRESS EQU $DDé67 
26 REEL,INT EQU $E10C 
27 INT.REEL EQU $E2F2 
28 SFP,MFP EQU $EBS3 
29 AY.MFP EQU $EAF9 
30 AY,SFP  EQU $E9E3 
31 FP,.XY  EQU $EB2B 


33 MULT.AY EQU $E97F 
34 MULT EQU $E982 
3 PLUS EQU $E7Ci 
36 MOINS  EQU $E7AA 
37 COSINUS EQU $EFEA 
38 SINUS  EQU $EFFI 
39 PLUS,S  EQU $E7A0 


41 VAR EQU $DFE3 
42 CHARGE  EQU $EB2B 


44 BHGNDO EQU $F3F2 





*EXPRESS À ACUL 
*EXPRESS À ACUD-1 


+CONVERSION REELATNT 
?CONVERSION INTAREEL 


* OPERATIONS 


FONCTIONS 


Fr" AY 
FACU À VARIABLE 


#EFFACE ECRAN 
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45 BKGND  EQU $F3F4 COLOR ECRAN 
46 HCOLCR  EQU $F4F0 * COULEUR=(X) 
47 HPLOT  EQU #F457 

48 HLINE  EQU #$F534 

49 }; r 

30 MASCOLOR EQU $F4Fé 

RER 

92 ACUI EPZ $Al 

33 ACUI EPZ $Al 

ÿ4 PAGHGR  EPZ $E6 PAGE TRAVAIL 
99 PLUME  EPZ $6 #L=0 B=1 

56 TORTUE,X EPZ $7 

37 TORTUE,Y EPZ $9 

59 BUT,X  EPZ $F9 

99 BUT,Y  EPZ $FB 

6 TORCOLOR EPZ $FC 

61 ANGLE  EPZ $FD 

82 ; 

63 AMPER  EQU $3F5 

&4 HIMEM  EPZ #73 

65 

66 RAR EEKREAEXERKK 

67 KXKAKENAIION RMI INNREIEKK 

88 } 

69 DEPART: 

70 LDA #DEBUT #INITIALISE 
71 STA AMPER+1 POINTEURS & 
72 LDA /DEBUT 

73 STA AMPER+2 

74 LDA #$4C 

73 STA AMPER 

76; 

77 LDA #DEPART *HIMEM 

78 STA HIMEM 

7 LUE LDA /DEPART 

gl STA HIMEM+L 

gi ; 

82 JSR CLEAR 

83 JP BASIC 

84 ; 

85 ROOANTONONNNININIRERENEX 

86 } 

87 DEBUT: 

88 BNE TORTUE 

g9 RTS SI & RETOUR 
90 ; 

91 TORTUE CMP #'P’ 

9? BNE TO 

93 JMP PLACER 

94 TO: 

95 CMP #'A’ 

9% BNE TL 

97 JMP AVANCER 

98 Ti: 

99 CP 4'T' 
100 BNE T2 
101 JP TOURNER 
102 T2: 
103 CP #5’ 


104 BNE T3 

105 UMP SIMULER 
106 T3: 

107 CP #'V' 
108 BNE T4 

109 JMP VALIDER 
110 T4i 

{ii CP +'0° 
112 BNE TS 

113 JHP QU 

114 T5: 

115 CHP 4'B° 
116 BNE Té 

117 JHP BAISSER 
118 Téi 

119 CHP 4'L’ 
120 BNE T7 

121 JMP LEVER 
122 T7: 

123 CP 4'C’ 
124 - BNE T8 

125 JMP CENTRER 
126 T8: 

12 CP #'E’ 
128 BNE T? 

129 JMP ECRIRE 
130 T9: 

131 CHP +’ 
132 BNE T1 
133 UMP MONTRER 
134 Ti0: 

135 CHP #'R° 
136 BNE TIL 

137 JP RIDEAU 
138 Tii: 

139 CMP #'T° 
140 BNE T4ERR 
141 JMP INIT 
142 ; 

143 T4ERR  JMP STXERR 
144 ; 


145 OO EL ER EN EN EN ER IEEE 
146 x PLACE LA TORTUE: &P X,Y x 
147 XXKXIINNNNNNONIONONTOONNE KI 


148 } 

149 PLACER: 

150 JSR $B1 

151 CP +,’ 
152 BEQ P,LIT_Y 
153 JSR ENTIER2 
154 LDX ACUI 
155 CPX #41 

156 BEQ P,256 
157 BCS P,ERR 
158 P.DANSX STX BUT,X+#1 
159 LDX ACUI 
160 STX BUT.X 
1éi JSR TRANSX 


162 P,LIT_Y JSR VIRGULE 





PRES PÉP RE E DUELS IEEE LEA] 





+ X?296 
+X>912 ERREUR 
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163 CP 4',' 
164 BEQ P.LIT_A 
165 JSR ENTIER? 
166 LDX ACUO 
167 BNE P,ERR 
168 LDX ACUI 
169 CPX 41192 
170 BCS P,ERR 
171 STX BUT, Y 
172 JSR TRANSY 
173 PALIT_A JSR VIRGULE 
174 BEQ P.FIN 
175 CHP 4!’ 
176 BEQ P,FIN 
177 JSR EXPRESS 
178 JSR REEL,INT 
179 LDA ACUO 
180 STA ANGLE+1 
18i LDA ACUI 
182 STA ANGLE 
NH 14 JSR CADRANGL 
07 184 JSR TRANSA 
" 185P.FIN  LDA PLUIE 
ps 184 ENE P,TRACE 
D 17 JSR TOBUT 
D 19 JMP SORTIE 
” 189 P,TRACE JR PLOTOBUT 
190 JMP SORTIE 
DU  191P,256  LODX ACUI 
D 172 CPX #124 
193 BCS P,ERR 
HN 1% LDX ACUO 
M 19 JMP PDANSX 
196 P4ERR MP ILLERR 
M 17: 
… 198 CADRANCL: 
=) 199 CHOINS LDA ANGLE# 
… 20 BMI C,ADD 
MH 201 SEC 
MN 202 LDA ANGLE 
En 203 SRC 41104 
204 STA ANGLE 
25 LDA ANGLE+1 
206 SC #11 
207 STA ANGLE+1 
208 JP C.MHOINS 
209 C.PLUS LDA ANGLE+#I 
210 EMI C,ADD 
211 RTS 
212 CADD  CLC 
113 LDA ANGLE 
214 ADC 41104 
215 STA ANGLE 
216 LDA ANGLE+1 
217 ADC +11 
218 STA ANGLE+1 
219 JHP C,PLUS 
220 ; 


:Ÿ>236 ERREUR 


?Y>191 ERREUR 


:X+279 ERREUR 


jA=A-360 


A=A+360 


222 x AVANCE LA TORTUES &AD x 


221$ 

223 AVANCER: 

226 JSR SIMULE 
227 JSR VALIDE 
228 JMP SORTIE 
229 } 


230 XKKXAKKAEARNEENKRAIANNENNKEX 
231 x TOURNE LA TORTUES &T À x 
232 KEXAKXNENAEN ANNEE EENNNINNX 


233 } 

234 TOURNER: 

23 JSR $B1 

23% BEQ TT,ERR 
237 CP #';° 
239 BEQ TT,ERR 
239 USR EXPRESS 
240 JSR REEL INT 
241 CLC 

242 LDA ANGLE 
243 ADC ACUI 

244 STA ANGLE 
245 LDA ANGLE+1 
246 ADC ACUD 

247 STA ANGLE+I 
248 JSR CADRANGL 
249 J5R TRANSA 
230 JMP SORTIE 
251 TT.ERR JP STXERR 
292 } 


252 AAC IRON INR RICA CICR IN 
254 X SIMULE L'AVANCE: 85 D x 
255 RAGGOOOOGONNCEOOONNNE XX 
236 ; 

257 SIMULER: 

238 JSR SIMULE 

257 JHP SORTIE 

260 ; 

2861 PIL180 HEX 7B0EFASSOF 

262 }; 

263 TF1 HEX 0000000000 

264 TF2 HEX C000000000 


265 ; 

266 TT,X HEX 0000000000 
267 TT,Y HEX 0000000000 
268 BT,X HEX 0000000000 
269 BT,Y HEX 0000000000 


276 AGL HEX 0000000000 


271 ; 

272 SIMULE* 

273 LDA #AGL 
274 LDY /AGL 
273 JSR AY.MFP 
276 LDA 4PT_180 
277 LDY /PI_180 
278 JSR MULT.AY 
279 JSR MFP,TF1 





AXPI/180 DANS TF1 
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310 

311 S,0K 
312 

413 } 
314 

315 


333 ; 

334 MFP, TF2 
335 

336 

337 ; 

338 TF1,MFP 
339 
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JSR TF2,MFP 
LDA #TT,Y 
LDY /TT,Y 
JSR AY,SFP 


LOX #TF1 
LDY /TFi 
JMP MFP,XY 


LDX #TF2 
LOY /TF2, 
JMP MFP,XY 


LDA #TF1 
LOY /TF1 


:D DANS TF2 


+DXCOS(AXPI/180) DANS TF1 


+DXSIN(AXPI/180) DANS TF2 


3 Y=Y-DaSTN (A) 
#->BT,Y 


*ARRONDI-> BUT, Y 


3Y2191 


+X=X+DXC05 (A) 
ÿ—> BT,X 


FARRONDI->BUT ,X 


340 JMP AY,MFP 
341 ; 

342 TF2,WFP LODA #TF2 
343 LDY /TF2 
344 JMP AY.MFP 
345 À 

346 TF1,SFP LDA #TFI 
347 LDY /TFI 
348 JMP AY.5FP 
349 }; 

350 TF2,SFP LDA #TF2 
351 LDY /TF2 
352 JMP AY,SFP 
33 ; 


354 KXKKXEKKAKKMIIIINRRERENEEEKX 
335 X VALIDE L'AVANCE: & x 
356 KAXKKAKKENIN EN NNOONOOERE IX 


37 } 

338 VALIDER: 

359 JSR $B1 
360 JSR VALIDE 
361 UMP SORTIE 
362 }; 

363 VALIDE: 

364 LDA BUT,X+#1 
365 CMP #$1 
366 BEQ V,256 
367 BCS V,ERR 
368 V,Y LDA BUT, Y 
369 CMP 41192 
370 BCS V,ERR 
371 LDA PLUME 
372 BNE V4 TRACE 
373 UMP TOBUT 
374 V,TRACE JP PLOTOBUT 
375 V,256  LDA BUT,X 
376 CMP +124 
377 BCC V,Y 
378 V4ERR JP ILLERR 
379 } 


381 x QU EST LA TORTUE: &0X,Y,A x 
382 ORAN TOUR AIN 


383 ; 

384 QU: 

385 JSR $B1 

386 LDA BUT,X+1 
397 LDY BUT,X 
388 JSR INTREEL 
349 JSR VARIABLE 
390 TAX 

391 JSR CHARGE 
392 LDA #$00 
393 LDY BUT, Y 
394 JSR INT,REEL 
395 JSR VIRGULE 
396 JSR VARIABLE 
397 TAX 

3978 JSR CHARGE 


3X TORTUE 


?Ÿ TORTUE 





+ =] 
LS 
es 
h 
L<4 
2 
LEA 
va 
Ke 
LE 
Ex 
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399 LDA ANGLE+# 
400 LDY ANGLE 
401 JSR INT,REEL 
402 JSR VIRGULE 
413 JSR VARTABLE _ 
404 TAX 

405 JSR CHARGE 
406 LDA #$00 

407 STA $14 

408 JP SORTIE 
409 ; 

410 VARIABLE LOA 4580 

ail STA 414 

412 JSR VAR 

413 BIT $11 

414 BNT V.HRR 
415 BIT 412 

416 BHL V,HRR 
417 RTS 

418 V,NRR MP MIMERR 
419 ; 


420 RANCE EX 
421 x LEVER OU BAISSER: $L #BC x 
422 MAO IOCOEIOX 


423 ; 
424 LEVER: 

425 JER $B1 

426 LALEVER LOA 4500 
427 STA PLUME 
428 JHP SORTIE 
429 } 

430 BAISSER: 

431 JSR #81 

432 JSR ENTIERI 
433 LOX ACUI 
434 CPX 48 

435 BCC B,PLUME 
436 JP ILLERR 
437 B,PLUME  STX TORCOLOR 
438 JSR HCOLOR 
439 USR PLOTO 
440 LDA 451 

44 STA PLUME 
442 JP SORTIE 
443 ! 


4446 KAMKKANINKNNANENENIAANEELINK 


447 ; 

448 CENTRER: 

449 JSR $B1 

450 JSR MILIEU 
451 LDA PLUME 
452 BNE C:TRACER 
453 JSR TOBUT 
454 JMP SORTIE 
455 C+TRACER JSR PLOTOBUT 
456 JMP SORTIE 
457 à 


+ 
Le 


ACCEPTE TABLEAUX 


?REFUSE TABLEAUX 


471 


477 ; 


518 
509 ; 

510 PLOTO! 
sii 

512 

513 

514 

515 

516 


LDA #10 
STA ANGLE 
STA ANGLE+I 
STA BUT,X+i 
LDA 41140 
STA BUT,X 
LDÀ #19%6 
STA BUT, Y 


USR TRANSA 
JSR TRANSY 
LDA BUT,X+1 
LDY BUT,X 
JSR INT,REEL 
LDX 4BT,X 
LDY /BT,X 
JSR MFP,XY 
RTS 


LDA #$00 
LDY BUT, Y 


LOX #$04 
LDA BT,X,X 
STA TT,X3X 
LDA BT,Y,X 
STÀ TT,Y,X 
DEX 

BPL «2 

LDX BUT,X 
STX TORTUE,X 
LDY BUT,X+1 
STY TORTUE, X+1 
LDA BUT,Y 
STA TORTUE, Y 
RTS 


LDX TORCOLOR 
JSR HCOLOR 
LDX TORTUE, X 
LDY TORTUE, X+1 
LDA TORTUE, Y 
JHP HPLOT 


?CENTRE ECRAN 


#BUTX -, TT,X 


#BUTY -> TT,Y 


*ANGLE-AGL 


? TORTUEXY=BUTXY 


?TORTUE EN TORTUEXY 
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517 } 

518 FLOTOBUT: 

919 JSR PLOTO LIGNE TORTUE-EUT 
a20 JSR TOBUT 

g21 LDX BUT,X+1 = 
322 TAY 

573 LDA BUT,X 

324 JMP HLINE 

S2h? 

524 RON EE AIN 

527 x ECRIRE SUR LA PAGE? &E1/2 x 
528 KAAONOONOONOEIOOREEKEKE 
d29 } 

330 ECRIRE: 

931 JSR $Bi 

532 JSR ENTIERI 

533 LDA ACU1 

534 CHP #$1 

5939 BNE E,PAGE? 

536 LDA ##20 

597 STA PAGCHGR 

5939 JMP SORTIE 

9939 E.PAGEZ CMP #42 

540 BNE E.ERR 

J4 LDA +640 

542 STA PAGHGR 

343 JMP SORTIE 

944 E,ERR  JMP ILLERR 

045 | 

546 OO IN IN 
947 X MONTRER LA PAGE HCR &H N x 
548 XOOONOR AO AIO IRC 
HAE 

530 MONTRER: 

Sol JSR $Bi 

532 JSR ENTIERI 

593 LDA ACU1 

14 BNE M,123 

it BIT $C054 ?N=0 
dé BIT $C051 PAGE TEXTE 
d9/ JP SORTIE 

d09 M+123 CMP #$1 

539 BNE M,23 

560 BIT $C053 HE 
Si BIT $C054 FHGR1 MIXTE 
362 BIT $C057 

563 BIT $C050 

564 JP SORTIE 

565 M:23 CMP #42 

566 BNE M,3 

d67 BIT $C052 +N=2 
548 BIT $C055 *HGRZ TOTAL 
369 BIT $C057 ” 

570 BIT $C050 

ÿ71 JP SORTIE 

S72 M3 CMP #43 

373 BNE M,ERR : 

474 BIT $C052 1N=3 
979 BIT $C054 #HGR1 TOTAL 


6 BIT #C057 


S/7 BIT $C050 
378 JHP SORTIE 
579 MERR JP ILLERR 
590 }; 


582 x RIDEAU: &R C INVERSE:C=8 x 
583 OONOCOOONNEREENLXEEEKKX 





564 ; 
585 RIDEAU: 

586 JSR #81 

587 JSR ENTIERI 

588 LDA ACUI 

589 CHP 448 

590 BCC R.COLOR 

591 BEQ R,NEGAT 

592 JP ILLERR 

373 ; 

594 R,COLOR  TAX 

595 LDA MASCOLOR,X 

596 JSR EK 
597 JP SORTIE - 
198 } : 
599 RNEGAT  LDA PAGHGR 
600 STA #18 
é0i LOY #$0 : 
602 STY $1A ë 
603 A1 LDA ($14),Y : 
604 EOR #$FF se 
605 STA (#1A),Y À 
été IN = 
607 BNE <1 1 
608 INC #18 
609 LDA $1B sa 
610 AND #$1F se 
éii BNE <1 Es 
612 JP SORTIE Eu 
613 ; & 
614 XAKKAKKMAKARENIERERK II EREK a 
615 x INITIALISATION: &I 113 x sa 


616 KXKKKKKKKAMKERERAXERENENEXEX 


617 ; 

618 INIT' 

619 JSR MILIEU 
620 JSR TOBUT 
621 JSR $B1 

622 JSR ENTIERI 
623 LDA ACUI 
624 CP #$1 
625 BNE 1,23 
626 LDA #$20 PAGE 1 MIXTE 
627 STA PAGHGR 
628 JSR BKENDO 
629 BIT $C053 
630 BIT $C054 
631 I,SORTIE BIT $C057 
632 BIT $C050 
633 JP L,LEVER 
434 ; 
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635 1:23 CHF #42 652 I,ERR  JMP ILLERR 

636 BNE 1,3 . 833 ; 

637 LDA +$40 PAGE 2 TOTALE ESS RRROONOONONONTONOOEKXEEXEX 

638 STA PAGHGR 455 x SUITE DE L'INSTRUCTION & x 

639 USR BKGNDQ 856 KAKAALENINEERENANEERAAXERENNX 

é4 BIT $C052 857 } 

él BIT $C055 638 SORTIE: 

642 JHP I, SORTIE 8359 JSR $B7 

643 ; 660 BE S,SUITE 

444 I,3 CHP #43 éél RTS INSTRUCTION TERMINEE 

645 BNE I,ERR 662 S,SUITE LDA #';° 

646 LDA #20 *FAGE 1 TOTALE 663 JSR CARACOK 

647 STA PAGHGR 664 JMF DEBUT 

442 JSR BKGNDO 665 ; 

649 EIT $C052 666 XXE OEM 

650 BIT $C054 667 } 

é5i JP I,SORTIE 668 END 

TORTUE & : récapitulation 
#9150, 35AD 
32C0- 00 00 00 00 00 A3 CO 0 9438- 20 5C 9% 20 4D % AS FA 

9150- A9 6D 8D F6 03 A9 91 8D 32C8- 92 20 F9 EA A9 9D A0 92 J440- A4 F9 20 F2 E2 A2 B6 PO 
9158- F7 03 A9 4C 8D F5 05 A3 92D0- 20 7F E9 20 43 93 20 Bi Jû4B- 92 20 2B ER 60 A9 00 à 
9160- 50 85 73 A9 91 85 74 20 3208- 00 20 67 DD 20 50 93 20 9450- FB 20 F2 E2 A2 BB A0 9 
9168- 6C D6 4C 3C D4 DO 01 60 92€0- 57 93 20 EA EF 20 6C 93 345B- 20 28 EB 60 AS FE A4 FD 


9170- C3 50 DO 05 4C CE 91 C3 
9178- 41 DO 05 4C 66 92 C3 54 
9180- DO 03 4C 6F 92 C3 55 DO 
9168- 03 4C 97 92 C3 56 DO 05 
9190- 40 73 93 C3 4F DO 03 4€ 
3:98- 9D 93 C9 42 DO 03 4C F4 
9iA0- 93 C9 4C DO 05 4C ERA 93 
3iAB- C9 43 DQ 03 4C 12 94 C3 
91B0- 45 DO 03 4C AS %4 C3 4) 
3BB- DO 03 4C C6 4 C3 52 DO 
91C9- 03 4C 15 95 C3 49 DO 03 
31C8- 4C 4C 95 4C C3 DE 20 Bi 
91D0- 00 C3 2C FO 14 20 0 El 
9:DB- A6 A0 EO 01 FO 51 BO 5A 


92EB- 20 82 E9 20 65 95 20 49 
92F0- 35 20 55 EB 20 F1 EF 20 
2F8- 6C 93 20 82 E9 20 50 35 
9300- 20 SE 93 A3 Bi A0 92 20 
3508- E3 €9 20 AA E7 A2 BR A0 
9310- 92 20 2B EB 20 A0 E7 20 
33i8- OC Et AS A0 FO O4 A9 CB 
9320- 85 A1 AS A1 85 FB A3 A 
9328- A0 92 20 F9 £A 20 65 95 
9330- 20 Ci E7 A2 B6 A0 92 20 
3338- 2B EH 20 A0 E7 20 OC Ei 
9240- A5 A0 85 FA AS A1 85 F9 
9348- 60 A2 A2 AO 92 4C 28 EB 
9350- A2 A7 A0 92 4C 2B EB A9 


946B- 25 EB 60 A2 04 BD B6 92 
9470- 9D AC 92 BD BB 92 SD Bi 
9478- 92 CA 10 F1 A6 F9 86 07 
9480- A4 FA 84 08 AS FB 85 09 
9488- 60 A6 FC 20 FO F6 A6 07 
S490- A4 08 AS 09 4C 57 F4 20 
9498- 89 94 20 6B 94 A6 FA AB 
940- A5 73 4C SA F5 20 Bi 00 
SaA8- 20 F8 E6 AS A1 C3 01 DO 
94B0- 07 A9 20 85 E6 40 9F 
94BB- C3 02 DO 07 A9 40 85 E6 
SaCo- 4C 9F 95 4C 99 EL 20 BI 
94CB- 00 20 F8 E6 A5 Af DO 09 


91E0- 86 FA A6 A1 86 F3 20 Æ 3358- A2 A0 92 4C F9 EA A9 A7 94D0- 2ZC 54 CO 2C 51 CO 4 F 
91E8- 94 20 BE DE C9 2C FO 12 9360- A0 92 4C F9 EA A9 A2 A0 3aDB- 95 C9 0i DO OF 2C 53 C0 
91F0- 20 05 Ei A6 A0 DO 43 À 9368- 92 4C E3 E9 A9 A7 AO 92 94E0- 2C 54 CO 2C 57 CO 2C 
91F8- A1 E0 CO BO 3D 86 FB 20 9370- 4C E3 E9 20 Bi 00 20 7C 9UEB- CO 4C 9F 95 C3 02 DO 0F 
9200- 4D 94 20 BE DE FO 18 C9 3378- 93 4C 9 95 A5 FA C9 O1 9aF0- 2€ 52 CO 2C 55 CO 2 57 
9208- 38 FO 14 20 67 DD 20 OC 9380- F0 12 BO 16 A5 FB C9 C0 94F8- CO 2C 50 CO 4C 9F 95 C9 
9210- Et A5 A0 85 FE AS A1 &S 3388- BO 10 A5 06 DO 03 4C 68 9500- 03 DO 0F 2C 52 CO 2C 5% 
9218- FD 20 3D 92 20 5C % À5 9390- 9% 4C 97 %4 AS F9 C9 18 9508- CO 2C 57 CO 2C 50 CO 40 
9220- 06 DO 06 20 6B 54 4C FF 3398- 90 £A 4C 99 Ei 20 Bi 00 9510- 3 95 4C 99 Et 20 Bi 00 
9228- 95 20 97 %4 4C 9F 95 G3A0- A5 FA A4 F9 20 F2 E2 20 9518- 20 F8 E6 A5 A1 C3 08 9% 
9230- A1 E0 18 BO 05 A6 A0 4C 95A8- D7 93 AA 20 2B EB A3 00 5520- 05 FO OD 4C 99 E1 AA BD 
9238- E0 91 4C 99 E1 AS FE 30 93B0- A4 FB 20 F2 E2 20 BE DE 9528- F6 F6 20 F4 F3 4C 9F 95 
9240- 15 38 AS FD E9 68 85 FD 93B8- 20 D7 93 AA 20 28 EB AS 9530- A5 E6 85 1B A0 00 84 1A 
9248- AS FE E9 0 85 FE 4C 3D g3C0- FE A4 FD 20 F2 E2 20 BE 3538- 81 1A 49 FF 91 1A CB DO 
9250- 92 A5 FE 30 01 60 18 AS 33C8- DE 20 D7 95 AA 20 2B EB 9540- F7 E6 1B AS 1B 29 1F D 
9258- FD 69 68 45 FD AS FE 63 33D0- A9 00 85 14 4C %F 95 A9 9548- EF 4C 9F 95 20 28 94 20 
9260- 01 85 FE 4C 51 92 20 CS 93D8- 80 85 à 20 ES DF 24 11 9550- 6B 94 20 Bi 00 20 F8 E6 
9268- 92 20 7C 93 4C 9F 95 20 93E0- 30 05 24 12 30 01 60 4C 9558- A5 A1 C3 01 DO 16 A9 20 
3270- B1 00 FO 20 C3 3B FO 1C 93E8- 76 DD 20 B1 00 A3 00 85 9560- 85 E6 20 F2 F3 2€ 53 C0 
3278- 20 67 DD 20 0C Ei 18 A5 93F0- 06 4C 9F 95 20 Bi 00 20 3568- 2C 54 C0 2C 57 C0 Æ 
9280- FD 65 A1 85 FD AS FE 65 93F8- F8 E6 A6 A1 EO 08 90 03 9570- C0 4C ED 93 C3 02 DO 10 
3288- A0 85 FE 20 3D 92 20 SC 9400- 4C 99 El 86 FC 20 FO F6 9578- A9 40 85 E6 20 F2 F3 2C 
9290- 94 4C 9F 35 4C C3 DE 20 9408- 20 89 94 A3 01 85 06 4C 9580- 52 CO 2C 55 CO 4C 6B 5 
9298- C5 92 4C 9F 95 7B 0E FA 9410- 3 95 20 Bi 00 20 28 % 3588- C9 03 DO 10 A9 20 85 E6 
92h0- 35 OF 00 00 00 00 00 00 gé18- A5 06 DO 06 20 6B 94 4C 9590- 20 F2 F3 20 52 CO 2C 
32A8- 00 00 00 00 00 00 00 00 9420- 9F 95 20 97 9 4C F 7 9598- CO 4C 6B 95 4C 99 Ei 20 
92B0- 00 00 00 00 00 00 00 00 9428- A9 00 85 FD 85 FE 85 FA 95A0- B7 00 DO 01 60 A9 3B 20 
3288- 00 00 00 09 00 00 00 OÙ 9430- A3 8C 85 F9 A9 60 85 FE JSAB- CO DE 4C 6D 91 00 
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Ce programme est destiné à réjouir les 
amateurs de loto et d’assembleur, et à 
enrichir les premiers. Tout d’abord, ils 
sont sûrs d'obtenir des tirages qui ne se 
répèteront jamais. En effet, la fonction 
RND a le défaut de donner la même 
série de nombres chaque fois que l’on 
allume l'ordinateur. L’astuce que j'uti- 
lise ici permet de pallier ce défaut. Le 
sous-programme gérant un nombre 
aléatoire peut être facilement adapté à 
d’autres programmes. 

Les variables K, K1, Al et AJ sont utili- 
sées dans les programmes en BASIC et 
en assembleur. Pour éviter toute confu- 
sion, il faut savoir que ces variables 


ICALL-151 


x4000.40ED 


4000- ÀS 18 85 06 AS 
4008- AS EE 85 FE AD 
4410 F9. 20 AE EF Cé 
4018- ÀS EC 85 FC AS 
4020- ÀS 07 85 1E AS 
A2 20 7e 6720 23 
A0GG AA FF 20 BE E7 
4038- 19 20 26 EE Cé 
4040- CS FEB F0 21 ÀS 
4048- 20 F9 EA AS 1A 
4090 .A7-E7. 20 82 EP 
4058- AS 14 69 05 90 
4060- 85 1A 4C 3C 40 
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Le loto, c’est facile … 


Philippe Fabert 


représentent des nombres dans le pro- 
gramme en BASIC et des adresses 
dans la routine en assembleur. 


Voici les fonctions en assembleur de 
ces variables : 


AI : adresse de départ d’une série de 
numéros. 

AI : au début du programme, con- 
tient l'adresse de départ d’une 
série 
au cours du programme, 
l'adresse courante du numéro 
calculé 
à la fin, l'adresse de départ de la 
prochaine série. 





AJ : contient successivement les 
adresses des numéros d'une 
série pour la vérification et le 
classement. 


N.D.LR. 


À chaque appel de nombre aléatoire, 
on regarde un octet d’'entrés/sortie 
($C051, page graphique), puis on fait 
autant d'appels à RND que la valeur de 
cet octet. 


Ce RND est particulièrement intéres- 
sant dans les programmes dans les- 
quels on lui fait appel avant que le cla- 
vier ne soit utilisé. 








CHANCE | "3 
.4068- 69 05 90 02 Eé 19 85 18 
4070- Cé FE D0 98 A9 00 85 FD 
4078- ÀS EE 38 E9 01 85 FE 18 
4080- ÀS 07 85 19 85 1E À5 06 
19:85 07 40898- 85 18 49 05 90 02 Eé 1E 
L:C0>685 4090- 85 14 À5 iA A4 1E 20 F9 
F9 DS F9 4998- EÀA À5 18 À4 19 20 A7 E7 
06 85 14 AUAO- 20 82 EF 10 03 4C ED 40 
08 A4 09 40A8- A0 04 E1 1A 91 18 88 10 
EC ASFE 40R0- F9 20 53 EE À6 14 A4 1E 
ñÂé 18 À4 A40E8- 20 2E EE Eé FD Cé FE F0 
FC À5 FC 40C0- 14 18 A5 1F 85 19 A5 14 
18 44:19 40C8- 85 18 69 05 90 02 Eé 1E 
A4 iE 20 40D0- 85 14 4C 92 40 A5 FD C9 
F0 EA 18 40D8- 00 D0 99 Cé FA F0 0E 18 
02 Eé 1E 40E0- A5 18 69 04 90 02 Eé 19 
18 AS 18 40E8- 85 18 4C 00 40 60 
EE  _ _ _ ____ _* 
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LOTO : programme BASIC 
LIST 


1 PRINT CHR$ (4) "BLOADLOTO. OBJO" 
5 TEXT : HOME : HTAB 13: INVERSE : PRIN 
T "JOUONS AU LOTO": NORMAL : VTAE 
6: INPUT "COMBIEN DE NOMBRES (AU 
MOINS 6) ? ":CH: POKE 235,CH:CL 
= CH + 1: POKE 236,CL: REM 
235 (OU $EB EN HEXA) CONTIENT L 
A VALEUR CH 
10 VTAE 11: INPUT "NOMBRE DE SERIES (AU 
MOINS UNE) ? ":S: POKE 250,S: RE 
M MET LE NOMBRE DE SERIES 
A TIRER EN 250 (OU $FA EN HEXA) 
15 U = S * CH: DIM A(U): REM TABLEAU 
CONTENANT LES NUMEROS 
20 K = 49: POKE 8, PEEK (131): POKE 9, P 
EEK (132): REM LES MEMOIRES 
EN PAGE ZERO CONTIENNENT RESPECT 


LOTO en assembleur DOS TOOL KIT 


ACCRA RONA ACCICIOIONACIONACRNOOIEACE 


x * 
x LOTO” x 

x x 

x JUIN 82 x 

x x 

X PAR PH,FABERT x 

x x 
AO RAI OIOIOOICIOURIOX 
Le 

? TABLE DES LABELS 

LA 

SUB  EQU $E7A7 

ALEA  EQU $C0Sl 

RND EQU $EFAE 

MOVHF EQU $EB2E 


INT EQU $EC23 
SIGN  EQU $EE82 
ADD EQU $E7BE 
Al EQU $6 
k EQU #8 
AI EQU #18 
AJ EQU $1A 
CHIFFRE EQU EE 
CHIFI EQU $EC 
CPT EQU F9 
EUL EQU #FA 
C EQU #FB 
Ci EQU $FC 
FLAG  EQU $FD 
KI EQU FE 


IVEMENT L’ADRESSE HASSE ET HAUTE 
DE 49 

25 Ki = 1: POKE 254, PEEK (151): POKE 25 
SJ, PEEK (152): REM DE MEME POU 
R 1, ZS4=$FE ET 255=$8FF EN HEXA 

50 X = A(1): POKE 24, PEEK (151): POKE Z 
5, PEEK (152): REM DONNE L*ADR 
ESSE DE DEPART DU i NUMERO DE LA 
1 SERIE 

55 CALL 16584: REM APPELLE LE PROG 
RAMME EN ASSEMELEUR EN 16584 OÙ # 
4000 EN HEXA 

49 REM AFFICHAGE 

90 HOME : FOR I = 1 TO U: PRINT SPC( 35 
— LEN ( STR$& (A(I)))):A(I): 

9S IF I / CH = INT (I / CH) THEN PRIN 
T * REM SAUTE UNE LIGNE 

60 NEXT 


STA Ait 
LD CHIFFREÏNOMBRE DE CHIFFRES À CHAQUE SERTE 
STA € COMPTEUR DE LA SERIE 


LT 


#BOUCLE GERANT UN 
NOMBRE ALEATOIRE 
; 

PARTZ LDA ALEA +NOMBRE ALEATOIRE 
#ENTRE 0 ET 255 


PART3  JSR RAD FONCTION RND DANS FAC 


+ COMPTEUR PROVISOIRE 


STA Ayti 


+ 


t 


LDh K 3K ET K+1=ADRESSE DE 49 
LDY K# +49 -> ARG PAR MULP 

J5R AULP + FAC=FACHARG 

JSR INT #REND ENTIER FAC 

LD4 KI Ki ET Ki+i=ADRESSE DE 1 
LOY Kit 1 -> ARG PAR ADD 
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JSR 
LDX 
LDY 
JSR 
PARTS DEC 
LDA 
CP 
BEQ 


+ 


ADD ÉLIMINE 0 
#FAC -> AI 
Ci - 


C +91 C=C1 EVITE VERIFICATION 
PART7 


u 
$LE NOMBRE EXISTE-T-IL DEJA ? 


? 
LDA 
LDY 
J5R 
LDA 
LDY 
JSR 
JSR 
BEQ 


+ 
t 


AI 
AI+i 


SUB #FAC=ARG-FAC 
?SIGNE DANS REGISTRE À 
FRESULTAT NUL, ON RECOMMENCE 


#CALCUL L'ADRESSE DE À 


’ 
CLC 
LDA 
ADC 
BCC 
INC 

PARTS  STA 
JF 


+ 
L 


CALCUL DE L'ADRESSE DE AI 


# 
PARTZ  CLC 


#$01 


; 
CALCUL LES ADRESSES 


+ 


CLC 
LDA 
STA 
STA 
LDA 
STA 


ADC 
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28 
à 


Ati 
TRIL STA À 
COMP AJ 


SÉSGESSEE 
B 


+ 


t 
. CALCUL L'ADRESSE 


L 
ADR DEC € 
BEQ FLG 
; 
CALCUL LES ADESSES 


la 


CLC 


S3E 
Fi 


CEE 
ë 


ADRI STA AJ 


FLG 
#50 
TRI 


RES 


+ 


? 
?LES NUMEROS SONT TIRES 


; 
DEC BUL 
BEQ FIN 
CLC 





ADRESSE DU 2 NUMERO 
+DANS AJ 

FA) —> FAC 

ADRESSE OÙ 1 NUMERO 
DANS AI 
FFAC=ARG-FAC 


RESULTAT POSITIF -> ECHANGE 


NOMBRE D'OCTETS POUR FORMAT FLOT'ANT 
JAJ -> AI 

3VO0, ECHANGE CONTINUE 

JARG -> FAC 


FAC -> A 
#ECHANGE EFFECTUE -> DRAPEAU À 1 


RNMMETAS LE 


RE | 


ed 


COMPTEUR À ZERO 


FARM 


ECHANGE ? 
OUI, RETOUR À TRI 


+ RESTE-IL ENCORE DES SERIES? 
: NON; TERMINE 
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2 Vous y trouverez: 

Ualité et les tendances de l'informatique individuelle 

cs d'essais des principaux matériels e des panoramas 
mparatifs e le point des grandes manifestations 
fernationales e des articles d'initiation e des synthèses 
__e des programmes e des interviews “exemplaires” 
a des conseils e des idées e des astuces 


RD INATEUR INDIVIDUEL, chez votre marchand de journaux 








Tableaux de taille déclarée en Pascal 


Le programme ci-après montre com- 


ment on peut créer 


des tableaux de 


taille déclarée à l'exécution d'un pro- 
gramme en Pascal. Ce tableau est créé 
en variable dynamique. 


Le programme de démonstration qui 


FROGRAM TAELEAUXVARTAELES ; 


CONST MAXTAE 


MINIMUM 
TYPE 
ARTICLE 
TABLEAU x 
FTINT E 
FTART = 
FTTAE: E 
VAR ART 
FART 
TAEL, 
TABZ 
DEFART , 
SOMMET 
GE 
MAXART1i;, 
MAXART2 
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3000; 
140 


H Of 


i environ 


RECORD NUMEROSINTEGERS 


NOM 
END; 


suit permet en outre l'affichage des 
valeurs des pointeurs utilisés. 

Remarque : le compilateur Pascal 
effectue les tests de débordement 
d'indice de tableau, non par rapport à 
la longueur réelle du tableau, mais par 


j4 minimum de memoire necessaire pour le deroulenent “ 
L normal du programme en mots de 16 bits sur AFFLE II ‘© 
AFFLE II et 140 en 


80 en 


:STRINGE 91; + c'est 


ARRAYCO,,MAXTAEI OF ARTICLE; 


RECORD 

CASE EOOLEAN 
TRUE à 
FALGE % 

END ÿ 


RECORD 
CASE FOOLEAN 
TRUE à 
FALSE $ 
END ; 


RECORD 

CASE EOOLEAN 
TRUE à? 
FALSE $ 

END $ 


ÿ ARTICLE; 


t FTART  ÿ 


+ 


FTTAE ; 


 variseble occupant 10 octets 
a dire 5 


(agent alors 
pointeur c'est à dire une adresse 


Régis Lardennois 


rapport à la longueur déclarée dans le 
tvpe (5000 dans notre cas). La lon- 
queur réelle ne peut par conséquent 
pas dépasser la longueur maximale 
déclarée. 


ARPÉES NZ n, 


mots de 16 hits 


type variant permettant d'utiliser 


comme etant 
desianarit un %r 
ou du type ‘nombre © 
13 valeur du © 


l'utilisation de varables de type * 
variant autorise l'affichage 


OF les variables au choix 
(FSAINTEGER); © du type ‘pointeur 
CTSINTEGER )f © nombre entier’ 

£ entier’ 

€ 

L Memoire 


CE de de 


0F 
(FSAARTICLE)$ € 
(T?INTEGER ); 


0F € fois-ci 
(PIATABLEAU)S 
(L!INTEGER ); 


direct des valeurs des pointeurs 


iden sauf que le type pointeur 
desione non un entier mais une 
varisble de type article 3 


le type pointeur designe cette e 
une variable de type LE 
tableau d'articles 2 


Zi definit la position de la pile au dehut du programme 


4 FTINT 
3 CHAR 


$t definit la position instaentanee du haut de ls pile : 
+ 
LA 


L nombre maximal d’srticles du tsblesu 1 
5 INTEGERSE nombre maximal d'articles du tableau 2 35 











EE 


(tas 


F4 
Le 
L.) 
bo 
% 
rs 
r 
ë 
æ- 


SAMU 





LJ 
MEMAV 


$ INTEGER; 
$ REAL; 


FROCEDURE MENU; 
ÉEGIN FAGE COUTFUT); ROARPÉENIIS 7 


HRITE(CHR(28))$ £ AFFLE /// % 
WERITELNC’FROGRAMME DE DEMONSTRATION DE CREATION ‘, 
‘DE TAËLEAUX DE DIMENSION VARIAELE ’); 

HRITELN$ 
MEMAVI=2,0 X CMEMAVAIL-MINIMUM) ; 
WRITELN(/memoire disponible ‘,MEMAVAIL,’ mots de 16 hits soit ”’;, 
TRUNC € MEMAV/(SIZEOF(ARTICLE)) ),’ articles ‘); 
WAITELN 
WÉITELN(’dimension tableau 1 = ’, (MAXARTI+1), 

1 dimension tableau 2 = /, (MAXARKT2+1)); 
WRITELN$ 
WRITELN('/valeurs pointeurs en octets’); 
WRITELNC'/DEFART FILEz= ’,DEFART,T:5,° SOMMET FILEz= ’,SOMMET,I:5; 

7 TAËELEAU 1i=’,TA4Ë1,1:5,’ TABLEAU 2=’, TAEZ,1:5); 


WKITELN ÿ 
WRITELN(’/1 DESTRUCTION TAELEAUX"); 
WKITELN(’2 CREATION TABLEAU 1°); 
WRITELN(C’3 INITIALISAT TAELEAU 1‘); 
WAÉITELN(’4 VISUALISAT TAELEAU 1°); 
WRITELN(C’/5 CREATION TAELEAU 2°); 
. HRITELNC’6 INITIALISAT TAEËELEAU 2°); 
WRITELN(C’7 VISUALISAT TAELEAU 2°); 
WRITELN(’esc QUITTER‘); 
READ(CL) 
WAITELN; 
END; 
FROCEDURE DESTRUCTION: £ destruction des variables dynamiques crees © 


(A 


Ed 


£ depuis l'instruction MARK(DEFART,F) 


ÉEGIN RELEASE(DEFART,F); 


END; 


SOMMET ,F$=DEFART,F; 
FART,L+=DEFART,LITAEL,Li=DEFART,TITAEZ. TS =DEFART,T; 
MAXART1:=0$MAXART25=0; 


FROCEDURE CREATI1; 
ÉEGIN WRITE(/nombre d’’articles max ? /)$READLNÇCMAXART1) ; 


MAXART1LS=MAXARTI1-1; { parce que l'indice du tableau © 
{ commence & 0 ï 
IF MAXARTI1:0 THEN MAXART1:=0; 
MARKÇCTAEZL,F) 
FOR Jt=0 TO MAXARTI DO 
NEN(FART:F)$C on cree MAXARTI fois une variable © 
Z{ de type ARTICLE ce aui cree la Æ 
{ place memoire pour le tableau “ 
MARK(SOMMET,F);$ 
END ; 
FROCEDURE CKEATZ$ 
ÉEGIN WRITE(‘’nombre d’’articles max ? ‘); 
READLNCMAXART2); 
MAXART2ZS=MAXART2-1; Z perce que l'indice du tableau © 
[ conmence à 0 “ 


IF MAXARTZ20 THEN MAXART2:=0; 
MARKÇCTAERZ,F) $ 
FOR Jiz0 TO MAXARTZ DO 
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NEWNCFART,F)$T on cree MAXARTZ fois une variable 
de type ARTICLE ce qui cree la 


place memoire pour le tableau 


ide A utc 2 sé | 


MARKCSOMMET ,F) ; 
END; 


FROCEDURE INIT1! 
ÉEGIN FOR Ji=0 TO MAXARTI DO 
ÉEEGIN TAE1L,FACJI,NUMERO$=UJ$ 
TAE1,FALCJ1, NOM i=’/TAEËELEAU 1°; 
END ; 
END; 


FROCEDURE INIT2$ 
FEGIN FOK J$iz0 TO MAXARTZ DO 
EECGIN TAEBZ2,FALJI, NUMERO 


= 
TAEZ,FALC JT ,NOM += 


; 
TAELEAU 2°}; 
END ; 
END ÿ 


FROCEDURE VISU; 
BEGIN FOK J$i=0 TO MAXARTI DO 
WITH TAE1,FACJTI DO HRITELNÇCNUMERO:5,° ’ , NOM) $ 
READCKEYEOARD , CL) ; 





END ; 


FROCEDURE VISUZ; 
BEGIN FOR Ji:0 TO MAXARTZ DO 


Une informatique de gestion adaptée aux besoins des gestionnaires et réaliséé par des gestionnaires, 


ETUDIE e opportunité d'utilisation de l’outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 


FORME e formation à l’utilisation de la micro-informatique 


REALISE e réalisation de programmes à la demande 


LIVRE e livraison de systèmes clés en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 


Nous sommes gestionnaires avant d’être informaticiens. L'informatique doit s'adapter à l'homme, et non l'inverse. 
L'outil micro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
dans des conditions conviviales. 
Nombreuses références en informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 


logma s.a. Centre La Châtaigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tél. : (3) 918.13.07 
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WITH TAEZ,FALCJI DO WRITELNCNUMEROSS, ? 
READ (KEYEOARD ; CL) $ 


 # NOM) ; 


END ; 


EEGIN | 
MAXART1:=0;MAXARTZ:=0; 
MARKÇCDEFART ,F) ; 


& pour pouvoir liberer toute la memoire #8 la : 
Li fin de l’execution du programme Fe 


DESTRUCTION: 
KEFEÂT MENU; 
CASE CL OF ‘1’:DESTRUCTION; 
‘2':CREAT1; 
CATÉENTEL: 
CATSUESULE 
25’{CREAT?; 
*6’*ENITZ; 
‘7':VISUZ; 
END ; 
UNTIL CLeCHK(27) 5 
DESTRUCTION: Z sinon stsack overflou 


END, 





Courrier des clubs 


ARMES RSR RPRRRINETNRRMnt7 
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Club Observatoire Orion 


J'anime un cercle d'astronomie basé 
sur la correspondance avec l'étranger ; 
nous avons plus de 160 contacts à tra- 
vers le monde, dont 70 % aux Etats- 
Unis.'En cinq mois, nous avons réuni 
plus de 400 listings qu'il nous faudra 
encoder. 


Nous cherchons à rassembler tous les 
listings que les amateurs ont écrit, se 
rattachant à l'astronomie et à la techni- 
que radio amateur, tant théoriques que 
pour les nuits d'observation et 
d'écoute. 


Nous avons déjà quelques 400 Ko 
tournant sur Apple II (DOS 3.3). 
Pouvez-vous nous aider, échanger 
avec nous ? 


D'un autre côté, nous terminons un 
ouvrage consacré à l'astronomie 
d’amateur, en plus de 650 pages et 
450 clichés. Un chapitre est consacré à 
la micro-informatique. Vos listings peu- 
vent encore s'incorporer à l'ouvrage, et 
rester sous votre copyright. 


Thierry Lombry - Club Observatoire 
Orion, Tienne aux Pierres 94, B. 5150 
Wepion, Belgique. 


Ma Pomme 


Les réunions régulières du club ont été 
déplacées au troisième mercredi de 
chaque mois. 


Pour tous renseignements, contacter 
Jean-François Duvivier, au (1) 
558.05.78, le soir (éventuellement 
tard). 


Ma Pomme - 6, rue Paul Saunière, 
75016 Paris. 


k IBRAIÏRIE INFORMATIQUE 


LA NACELLE 


ÉLECTRONIQUE e AUTOMATISME e MICROPROCESSEUR 
TOUS OUVRAGES ET ABONNEMENTS 


FRANÇAIS ET ETRANGERS 


Distributeur exclusif pour la France des manuels techniques du Réseau Calvados 
Tous les ouvrages français ou étrangers signalés dans cette revue peuvent être obtenus ou commandés à La Nacelle 


2, rue Campagne-Première 75014 PARIS - Tél. 322 56 46 


Métro Raspail - Parking à la hauteur du 120 bd du Montparnasse 
ouvert tous les jours lundi compris, sans interruption de 9 h 30 à 18 h 50, samedi fermeture à 17 h 50. 
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The Last One est un programme qui se 


donne pour devise : « Je programme 
pour vous |! ». Au premier abord, ça a 
l'air vrai, mais ça ne l’est que dans les 
limites d’un certain nombre de restric- 
tions. 

Au lecteur déjà initié à la programma- 
tion, le premier contact avec le manuel 
d'application (en anglais) donne une 
impression très favorable. Les explica- 
tions sont claires et précises. Même le 
non-initié y trouvera son compte, car 
les termes risquant de poser problème 
sont expliqués de façon claire. 
L'initiation au programme se fait à 
l'aide d’un exemple, introduit pas à 
pas. On ne vous explique pas toujours 
immédiatement les instructions présen- 
tées, mais, au bout d’une heure de tra- 
vail, on a un programme de saisie de 
données pour fichier qui tourne. Une 
surprise cependant : il y a de légères 
différences entre ce que l’on voit à 
l'écran et la description qu’en fait le 
manuel d'application. Cela tient au fait 
que ce dernier est unique pour toutes 
les versions de The Last One. Un petit 
livret, fourni en annexe, spécifie les 
caractéristiques particulières de la ver- 
sion Apple Il. Tout rentre alors dans 
l'ordre. 


En fait, l'apprentissage est très rapide, 
du moins pour ceux qui ont déjà de 
bonnes notions de programmation. 
Quant au parfait néophyte. il ferait 
mieux de s'abstenir. En effet, pour utili- 
ser The Last One valablement, il faut 
savoir faire l'analyse du programme 
que l'on désire obtenir et en dresser 
lorganigramme. À partir de là, et c’est 
cela le grand atout de ce progiciel, le 
programme BASIC est généré sans la 
moindre faute de syntaxe. En d’autres 
termes, vous définissez les étapes à sui- 
vre et vous obtenez un programme qui 
les exécute. C'est déjà non négligeable 
pour tous ceux qui sont fâchés avec 
leurs virgules, deux-points et autres 
séparateurs ou identificateurs… 


Mais, pour en revenir à nos restrictions, 
dès que l’on sort du tronc commun des 
BASICSs pour exploiter à fond les possi- 
bilités de l'Apple (T.L.O. le permet), il 
faut connaître celles-ci et les écrire telles 
qu'elles seront dans le programme 
final. C’est le cas pour les fonctions gra- 
phiques, formules, appels à des routi- 
nes... 


De fait, The Last One est un pro- 
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The Last One à l'essai 


gramme qui s'adresse réellement à des 
gens qui possèdent déjà des connais- 
sances en BASIC. 

Mais alors, qu’apporte-t-il ? Avant tout, 
la certitude, si on ne s'est pas trompé 
en définissant la logique du pro- 
gramme, que celui-ci marchera du pre- 
mier coup. Ensuite, pour tout ce qui est 
traitement de fichiers, description 
d'écrans d’entrée-sortie de données et 
branchements... une programmation 
grandement facilitée et accélérée, car 
des fonctions spécifiques y sont consa- 
crées. Enfin, mais il faut introduire là 
des réserves, un gain de temps au 
niveau de la mise au point des pro- 
grammes. 


Pour comprendre les raisons de ce gain 
de temps et de nos réserves, regardons 
comment The Last One fonctionne. 
D'abord, grâce au menu principal, on 
établit un organigramme (flowchart) 
dans lequel on définit dans leur succes- 
sion la nature des opérations (choix de 
menu, opérations sur fichiers, 
calculs...) sans s'occuper des opéran- 
des. Cette phase est rapide et facile à 
mettre en œuvre. Les possibilités d’édi- 
tion (création et suppression de lignes) 
sont très bonnes, malgré un scrolling 
un peu lent. 


Le flowchart est la seule partie du projet 
de programme que l’on puisse conser- 
ver pour modification ultérieure, hor- 
mis le listing final en BASIC. 





La phase suivante consiste à « coder le 
programme », c'est-à-dire définir les 
endroits où s’effectueront les branche- 
ments, la description des écrans, les 
formules pour les calculs. C’est une 
étape un peu fastidieuse car ceci est fait 
ligne par ligne de l’organigramme : les 
temps d'attente entre les demandes de 
renseignements sont assez longs ; on 
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finit par connaître trop bien le message 
« Working ! Please wait ». 


C’est à cet endroit que se situent nos 
principales réserves. Si vous n'avez fait 
aucune erreur (de logique — oubli 
d'un test ou d’un branchement — car 
les autres ne sont pas admises par 
T.L.O.), c'est parfait. 


Mais supposons que vous ayez oublié 
une ligne dans l'organigramme, un test 
du type « Etes-vous d'accord ? » par 
exemple. Il vous faudra alors modifier 
celui-ci en conséquence, ce qui est 
facile, mais il faudra ensuite recom- 
mencer toute la phase de codage. Ce 
qui revient quasiment à doubler le 
temps de mise au point du pro- 
gramme, car C'est cette phase qui 
prend l'essentiel du temps. 


C'est là le défaut majeur de The Last 
One. S'il ne faut pas recommencer plus 
d’une fois, le gain de temps au niveau 
de la mise au point du programme 
reste cependant appréciable. 


Mais, dira-t-on, ne peut-on directement 
faire les corrections sur le listing engen- 
dré ? Techniquement, c'est parfaite- 
ment possible. Mais en pratique quasi- 
ment irréalisable… 


Premièrement, il reste alors un pro- 
gramme BASIC à analyser pour trou- 
ver les endroits à modifier, ce qu'on 
voulait justement éviter en utilisant 
PFÉO: 


Deuxièmement, comme on le consta- 
tera sur l’extrait de listing présenté ci- 
dessous, la complexité du programme 
engendré a de quoi décourager même 
le programmeur expérimenté. 


En effet, d’une part il n’est pas du tout 
documenté (les seules REMs sont 
constituées par l’organigramme inséré 
en début de listing), d'autre part The 
Last One génère ses propres sous- 


programmes, qu'il n’est pas du tout évi- 


dent de décortiquer. Parmi ceux-ci, il y 
en a d’ailleurs de très intéressants : la 
routine d'INPUT, celle de traitement 
des erreurs (automatiquement intégrée 
dans tous les programmes). 


Notons aussi que, lorsqu'une descrip- 
tion d'écran se retrouve identique à 
elle-même en plusieurs points du pro- 
gramme, The Last One ne sait pas le 
reconnaître : on la retrouve par consé- 
quent en plusieurs exemplaires dans le 
listing. Pour cette raison comme pour 
d’autres, les listings sont relativement 
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longs. A titre d'exemple, le programme 
de l’article « Notions de base sur les 
fichiers » du Pom's 4 prenait 
13 secteurs sur une disquette. Réécrit 
avec The Last One, il en prend 31. Les 
temps d'exécution s’en ressentent for- 
cément (peu, il est vrai, pour cette taille 
de programme, mais cela peut devenir 
gênant). 

Il a fallu moins de trois heures pour ren- 
dre le programme opérationnel avec 
The Last One, malgré la nécessité de 
recoder une fois à cause de l'oubli de 
positionnement d’un pointeur. Ce der- 
nier aspect fait de The Last One un 
programme assez attrayant pour la 
grande majorité des programmeurs 
« moyens ». Le débutant sera un peu 
frustré de ne pas pouvoir en tirer le 
maximum sans apprendre le BASIC - 
T.L.O. n’est pas un outil pédagogique. 
Quant au programmeur chevronné, il 
lui sera plus rapide et efficace de pro- 
grammer lui-même. Aux autres, je 
laisse le soin de juger si l’aide, il est vrai 
non-négligeable, que peut leur appor- 
ter ce progiciel vaut son prix de 2 500 à 
3 000 francs. 


THE LAST ONE : extrait de programme 


380 PRINT MIDS (K$ + "," + K$,1i,3 * 5) 


25 = S — 


NOT 


NOT S:A$ MIDS$ 


(A$,1,5): GOTO 370 


390 PRINT MID$ 15$,1,ML — S): 


RETURN 


400 DC = OMC = O:D = O:S = O:FD = Di = 


9S1AY = "": 


PRINT  MID$ (Li$,i,mL) 


52 IF DL AND DL - 99 THEN PRINT 
"," MIDS (U$,1,DL) MIDS (ES, 1,DL 


+ i — NOT ML): 
4iO PRINT CHR$ (8): 
4720 GET K$:iK = ASC (K$ + H$): ON K = 8 


GOTO 480: 
) GOTO 500: 


ON K = 
ON UK = 85 ER E 57 


15 AND LEN {À$ 


OR K = 47) GOTO 420: IF K = 46 TH 
EN ON D OR NOT DL GOTO 420:D = 


1: PRINT MID$ 
— NOT MO)::A$ = 
STR$S ( ARS ( VAL (A$))):mC 
1: IF DL ( 99 AND M 


5) + 


= LEN (A$) — 
L THEN PRINT 


rs 


C.O.R.P. à l'essai 
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Le progiciel C.O.R.P. se compose de 
deux disquettes. Au sens strict du 
terme, le nom de « générateur de pro- 
grammes » qu'il se donne est justifié 
dans la mesure où ce qu’on obtient en 
fin de compte est bien un programme 
Applesoft. Seulement, on ne peut pas 
créer avec cet outil n'importe quel type 
de programme. Les auteurs d’ailleurs le 
précisent dans la documentation : 
C.O.R.P. est un générateur de pro- 
grammes pour la création et l’exploita- 
tion des bases de données. Voyons 
donc ce qu'il en est exactement. 


Premier contact avec le produit : sur- 
prise agréable, le manuel d'application 
est en français, les explications sont 
claires et simples. Il est cependant pri- 
mordial de tout lire avec attention et de 
ne pas essayer le programme avant 
d’avoir lu le mode d'emploi dans son 
intégralité. Et pour cause : la protection 
contre les copies pirates repose sur un 
petit boîtier qu’on enfiche dans le con- 
necteur de jeux, faute de quoi, paraît-il, 
la disquette s'autodétruit (je n’ai pas 
essayé et ne vous conseille pas de le 
faire). Une fois cela fait, le travail 
sérieux peut commencer. 


L'utilisation est d’une facilité étonnante. 
Prenons par exemple le cas d’un pro- 
gramme de gestion de fichier. Il suffit 
de définir votre écran pour les 
entrées/sorties de données, un peu 
comme en création de masque avec 
MEM/DOS (ex-M/DOS). Pour cha- 
que ligne non vide, l'utilisateur définit 
les étiquettes de ses variables (nom, 
adresse, …), leur nature (alphanuméri- 
que, numérique...) et le nombre 
maximum d’enregistrements admis. 
C'est tout! C.O.R.P. se débrouille 
ensuite tout seul comme un grand et, 
cinq minutes plus tard, a mis en place 
un système complet de gestion de 
fichier : création, modification, recher- 
che (rapide et lente) ou suppression 
d'un enregistrement. C’est remarqua- 
ble 


Qui plus est, il est possible de définir les 
champs des variables caractère par 
caractère ; ce qui permet d’avoir une 
variable du type : « CODE ARTICLE 
AA+#+#A», où À représente un 
caractère alphanumérique et # un 
chiffre. 


Quant à la différence de vitesse dans la 
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(ES, 1,ML + NOT ML 
MID$ ("-",23 — 


RIGHTS (565$ + À$,ML 


recherche, elle vient de ce que, pour la 
variable définie comme étant la clé, 
C.O.R.P. intègre au programme 
généré un système de recherche à table 
de référence (se reporter à l’article 
« Notions de base sur les fichiers » du 
Pom's 4 pour de plus amples explica- 
tions). 


Un fait est à signaler : le programme 
crée une table de référence pour le 
maximum d'enregistrements possibles 
ou autorisés dès le début. De ce fait, 
même sil n'y a aucun enregistrement 
dans le fichier, si on n’a pas fixé de 
limite de taille (fichier sur toute la dis- 
quette), la table de référence prend 
25 secteurs. 


Récapitulons ! Il m'a fallu 15 minutes 
(et je suis large) pour créer le masque 
d'écran, puis encore cinq minutes de 
travail pour C.O.R.P., et nous avons 
un programme Applesoft complet, qui 
marche (dans tous les cas) et permet, 
grâce à son système de recherche, de 
retrouver rapidement les articles par 
une clé, ou lentement tous ceux corres- 
ponant à une combinaison de critères 
en nombre non limité. Remarquable ! 
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Le seul problème (mais en est-ce un 
réellement ?) est qu’on ne peut pas en 
obtenir moins... Le programme ainsi 
créé prend 45 secteurs (contre 13 pour 





CORP : extrait de programme 


le même programme à la main). Il est PO ENDUT St 
vrai qu'il est plus performant par ses HIOO TE MID (CYUS- 1,4) = ‘S7 THEN S260 
possibilités de sélection multicritères. re) 
Jetons un coup d'œil sur le listing 210 IF. MiDé CMUB, 1,53 = D .THEN 2130 
engendré. Il est long, bien sûr... mais il 2120 GO1O 2070 
est très clair. Îl n’y a presque jamais plus 21350 IF KC$ = "x" THEN GOSUR 309 
d’une instruction par ligne ; il est facile- DI3S IE KC$ L:)-Va"-THEN GOSUS:20 
ment lisible et en conséquence aisé- 2140 IF Im = © THEN 907% 
ment modifiable (je n'ai pas eu à le faire 2150 F7 = à né 
cependant). On trouvera ci-dessous un # se 
exemple. 2190 GOT0 1250 
ra 5 FITORECSR:= x) 
S'il n'avait que cela, C.O.R.P. serait 5180 EUR ITEC = i TO 4 


seulement un bon produit comme on 
en trouve encore assez souvent. Mais il 
y a plus... Tout d’abord, il est possible 
de cross-référencer les fichiers (i.e. faire 
des renvois). Mais surtout, il y a des 
possibilités de création d’autres types de 
programmes : 


— programmes d'impression d'états en 
tous genres ; 

— programmes d'édition de formulai- 
res pré-établis avec recherche des don- 
nées dans le fichier. Très pratique par 
exemple pour établir des factures ; 

— programmes de reclassement de 
fichiers selon un champ quelconque en 
ordre croissant ou décroissant ; 

— et surtout programmes de mise à 
jour de tout ou partie d’un fichier selon 
des formules données. On peut, à 
l’aide de ceux-ci, appliquer un pour- 


2190 REC$ = REC + FIELD#(ITEC) 


00 :NEXT TFEE 


peut facilement modifier le pro- 
gramme, par exemple pour traduire en 
français les commandes (en anglais 
dans le programme généré). 


En conclusion, pour quiconque tra- 
vaille souvent avec des fichiers, bases 


de données et autres bêtes du mêmes 
genre, C.O.R.P. est un excellent outil. 
Nous aimons beaucoup. 


C.O.R.P. coûte 2 990 F H.T. pour le 


système complet, 2 100F HIT. en 
version de base. 





MOPPE D'ANPICO = SILEX 





Er , ARE 


Enseignement Assisté par Ordinsteur pour Ordinateurs 
- ITT 2020 = APPLE II = APPLE II + 






















HR 




















centage de hausse sur les prix de tous Ms Las Ra 
ge pe P « APPLESOPT Î- APPLE II ( + Carte APPLESOFT ) | 
les articles du fichier, ou seulement 2 xrie 14 rs 3: 
. . - e - - APPLE III el 

pour certains articles sélectionnés selon ee Eat Z MOPPE D'ANPICO ( + AFPLESOFT en ROX ) El 
des critères à définir ; . PALSOPT  [Û- ITT 2020 ( + Carte PALSOPT ) + 
+ SILROK f- SILEX ( de Léanord ) su 


— enfin, la possibilité de reconstituer 
des fichiers partiellement détruits par 
une fausse manœuvre. 


Comme on le constate, C.O.R.P. est 
une panoplie très complète de gestion 
de base de données. En fait, ce n’est 
même rien de plus. La seule chose qui 
le distingue d’une base de données du 
type CX Muitigestion ou DB Master, 
c'est que vous pouvez définir vos 
écrans comme vous l’entendez et que 
vous obtenez un programme Applesoft 
complet et autonome dont les fichiers 
sont lisibles par tout autre programme 
du genre. C’est déjà beaucoup, diront 
certains. 


En effet, ça l’est, surtout si l’on prend 
en considération la facilité d'emploi de 
C.O.R.P. (on peut réellement s'en 
servir sans rien connaître en informati- 
que), la vitesse de mise au point des 
programmes et surtout leurs perfor- 
mances de rapidité et fiabilité.” 


De plus, le listing étant facile à lire, on 
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1/ COURS 1 






informatique. 


en cours de leçon, 


A LA FIX DE CE 





Comité d'Entreprises. 
= 23 


PRIX ( T.V.A. comprise ) 










+ COURS 2 ( BASIC + ) 


être modifiés sans préavis. 
LS. 7 





( Sur DISQUETTES 5 1/4 Pouces = DOS = DOS 3,3 - Mémoire = 48 K,. ) 


BASIC -_ En Français 
TRES PROGRESSIF - Ne nécessite aucune connaissance préalable en 


Pour débutants et non débutants. TOUT Y EST EXPLIQUÉ. 
20 Leçons - Environ 10 à 12 Heures de cours. 

80 Exercices commentés, expliqués, résolus, exécutés. 
140 Questions notées sur 20, par groupes, = Réponses aux questions. 
GRAPHISME BASSE et HAUTE RESOLUTION. 

Défilement automatique du Cours avec arrêts et reprises possibles 


De nombreux exercices peuvent Être réexécutés autant de fois que 
vous le souhaitez. Ainsi, vous pouvez cbtenir les mêmes résultats 
ou des résultats différents en faisant varier les données d'entrée. 


2/ COURS 2 ( BASIC + ) - En Français O 
Philosophie générale identique à celle du COURS 1 ( BASIC }). 4 ù 


« 25 Leçons - 12 Heures de cours minimum. 
«+ 120 Exercices commentés, expliqués, résolus, exécutés. 
+ 160 Questions notées sur 20, par groupes = Réponses aux questions, 


3/ CONTRATS-LOCATION du COURS BASIC pour: 





«+ Etablissements d'Enseignement, 
«+ Eteblissenents de Formetion payante. 
« Centre de Recherches, Laboratoires, Centre d'Essais,...s 


375 FF. 
Prix donnés à titre indicatif, pouvant 
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Erratum 


Hervé Thiriez 


Il me faut faire amende honorable au 
sujet du dernier numéro de Pom : 
ayant dû le terminer au mois d'août, en 
même temps que mon livre sur Visi- 
calc, j'ai laissé passer certaines erreurs 
dans la rédaction et le contrôle des arti- 
cles. Je ne dispose pas sur mon Olym- 
pia des caractères << , > et +# ,etil 
faut en effet les créer manuellement. 
Voici les corrections, dans l'ordre de 
lecture de Pom's, auxquelles nous 
avons ajouté des compléments d’infor- 
mation. 


1. Le clavier magique 


Page 4, colonne 2, ligne 4, il faut lire : 
#=<DEPART >, < INCREMENT >. 


2. La programmation 
facilitée 
Page 23, colonne 2, lignes 6 et 7, lire : 


X < 128 diminue la durée, X > 128 
augmente. 


15 lignes plus bas, lire « affichant 
PRINT FN ARR(X) ». 


Afin de formater un écran entier avant 
de placer les INPUT et de créer une 
commande de formatage pur, il suffit 
de quelques instructions en plus et de 
créer une commande de formatage 
pur. On supprime « INPUT A$ » et le 
paramètre longueur devient obliga- 
toire, car le « 1 » servira à identifier la 
commande. Il faut pour cela : 
— Modifier les lignes suivantes : 

72 LDY #0 

73 STY LONGUEUR 

74STY $6 
123 BEQ MASQUE 
— Insérer les lignes suivantes : 

54 CMP#"‘1 

55 BEQ INPUT 


75 PHA 
76 CMP # ‘1 
77 BEQ INPTL 
115 DEC $BF 
122 INC $BF 
137 MASQUE PLA 
138 CMP ‘1 
139 BEQ GTRTS 


3. HAÏIFA 


Tout d’abord, il faut intervertir les 


pages 41 et 42. Nous espérons que la 
plupart des lecteurs s'en étaient aper- 
çus….. 


Page 35, col. 2, 8 3, ligne 5, lire 
« # SAS ». 


Paragraphe suivant, lignes 4 et 5, lire 
« fait un bip, déconnecte les routines 
spéciales d’entrée/sortie, puis la repro- 
grammation de HAIFA intervient — le 
RESET agit comme CTRL-C: il 
fait”. 

Page 36, la pile. Lire PUSH > et 
PULL = (pas de signe “ =”). 


Page 36, à propos de & GOTO, & 
GOSUB, & RESTORE et & NEW : 
comme on peut utiliser des expressions 
numériques à la place des nombres, il 


vaut mieux ne plus utiliser le RENUM- 
BER ! 


Page 37, le « INPUT anything ». Une 
propriété supplémentaire a été omise : 
& INPUT « [chaîne] » ; [nom de varia- 
ble], (exp. num.] 

& INPUT [nom de variable], [exp. 
num... 


Ces commandes agissent comme & 
INPUT, mais ajoutent derrière le cur- 
seur un nombre de points correspon- 
dant à l'expression numérique (de 1 à 
255). Ce nombre de points indique la 
longueur maximale de la chaîne autori- 
sée : en cas de dépassement, la chaîne 
sera tronquée en conséquence. 


Page 42, bas de colonne 1 : letype 9a 
pour effet « TE ». 


Page 43, col. 1, 86, lignes 6 et 7: 
.« <>» pour la gauche, « > » pour 
la droite. 

Page 43, tracer des points et des droi- 
tes : le HPLOT, le X HPLOT et le N 
HPLOT peuvent être prolongés par 
chacune des continuations [ex.1], 
{ex.2] ou TO [ex.1], [ex.2] ou ON 
[ex.3]. 


Page 45, col, 2, 84, lire PR# et IN# 
au lieu de PR= et IN=. 


Page 46, 82 et page 47, ligne 1, lire 
CTRL-SHIFT-N au lieu de CTRL-%. 
Page 46, dernier 8, lire CTRL-SHIFT- 
P au lieu de CTRL-à. 

Adresse des routines : GETLIN 
($FD6A), RDKEY($FDOC) et 
COUT1($FDFO). 


Page 48, col. 2, $4, ligne 1 : « Cette 





routine court-circuite l'entrée de » ; 
ligne 9 : lire PRINT CHRS$(4)« IN # 
0 » : « IN » et non « PR ». 

Page b1" col 2) S2-Nionet3 
« tables après les fichiers » ;, ligne 
9 : « du code (HAIFA.CODE en 48K 
ou HAIFA. CODE 1 en 64K), il ne ». 


Remarques sur 
la disquette Pom's 5. 


Le programme source est constitué de 
deux fichiers LISA 2.5 version 64K 
enchaînés par ICL car l’ensemble était 
trop gros pour tenir en mémoire en un 
seul fichier. L’assemblage de ces 
fichiers sauve automatiquement les 
deux fichiers source. Là encore, il fallait 
deux fichiers distincts car LISA ne laisse 
que 4K pour le fichier généré. 
L'assemblage des deux versions de 
HAIFA (48K et 64K) a été réalisé avec 
LISA en version 64K. Pour pouvoir lis- 
ter les fichiers avec LISA 48kK , il a fallu 
découper HAIFA.TEXT 1 et HAIFA. 
TEXT 2 en deux parties chacun (suf- 
fixes À à D). Ces quatre fichiers 
s'enchaînent avec ICL, mais ne sont 
pas assemblables en 48K car la table 
des symboles est saturée. 


Celle-ci a en effet une longueur de 
$800 en LISA 48K et de $1500 en 
LISA 64K. HAIFA est donc beaucoup 
trop gros pour être assemblé en 48K ! 


4. Conversion Pascal/ 
BASIC/Pascal 


Nous adressons nos excuses aux lec- 
teurs ayant essuvé des difficultés lors 
de l’utilisation. des programmes de 
conversion Pascal/BASIC/Pascal, 
fournis avec les disquettes Pom's 2 
à 4, et commentés dans le 
numéro 3. 


Pour ceux d’entre vous qui reçoivent 
les disquettes, utilisez le programme 
de transfert de BASIC vers Pascal de 
la disquette Pom's 5, dans laquelle 
le bug avait été corrigé, ou celui de la 
disquette 6, bien entendu. 


Ce bug avait été malheureusement 
absent de nos essais, dans lesquels 
nous avions remis les programmes 
sur une disquete Pascal vierge. La 
conséquence du bug est qu’une par- 
tie du programme Pascal risque 
d'être absente en fin de course. 
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Le remède est le suivant, à appliquer Donc, dans le code objet, faire 
aux programmes présentés par Gil- AE3 : 10. 
les Mauffrey dans le Pom's 3 : 


1. Dans PASCBAS.OBJO, 
288, lire CMP #$10. 





SN 
EDITiO 


2. Dans BASPASC.OBJO (sur dis- 
ligne quette uniquement), ligne 449, lire 
CMP #5$10. 


“C.O.R.P.” et “The Last One” 


Donc, dans le code objet, faire 
C29-10; 


3. Avant toute utilisation, nettoyer la 
mémoire avec : 


2000 : 0 
2001<2000 . 8000 M. 


| | 


TAPIE 


Avec le modèle Visicalc, vous pouvez créer sur votre P.S.I. (Petit Système = 
Individuel) un tableau comportant des titres, des valeurs et des formules. 


Dès que vous changez une des valeurs numériques, tout le tableau se 


met à jour en fonction des formules. Cet ouvrage vous guide pas à pas Hs 
dans l’utilisation de Visicalc, à l’aide d'exemples progressifs. De nom- < 
breux cas d’application sont présentés dans la seconde partie, au æ - 
rythme d’un chapitre par cas : échéancier de remboursement, feuille 

d'impôt, gestion de copropriété, paye, facturation, tableau de bord... 

Chaque exemple sert à introduire de nouvelles instructions ou 


astuces d'utilisation. 


176 pages - 82,00 FF/630,00 FB 





P.S.I. DIFFUSION 


E er ce bol 
41-51, rue Jacquard LE LR SA DESIGNATION 
BP 86 - 77400 Lagny-s/Marne 


de votre réglement à 
P.S.I. DIFFUSION 


FRANCE 
Téléphone (6) 007.58.31 ou, pour la Belgique et 


P.S.I. BENELUX le Luxembourg, à {par avion : ajouter 8 FF (75 FB) par livre} 


5, avenue de la Ferme Rose 
1180 Bruxelles P.S.I. BENELUX 


" BELGIQUE 


En Espagne 


PS.L. Iberica 
Ferraz 11 
Madrid 8 

Tél. : 247.30.00 
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Téléphone (2) 345.08.50 
au Canada 





SCE Inc 
3449 rue Saint-Denis 


__— PRENOM 








Montréal Québec H2X3L1 
Tél (514) 843.76 63 
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MAPAYE II A 


° MAPAYE permet dettaiterles problèmes de paie pour les entreprises de 
moins de 150 salariés 

e MAPAYE offre 200 rubriques de paie différentes. 

e MAPAYE est actuellement opérationnel chez de nombreux 
experts-comptables, dans le bâtiment, l'hôtellerie, etc 


e MAPAYE tourne sur : un APPLE I, un APPLE IL. 
MASTOCK III A 


© MASTOCK est un programme de gestion de stock et de facturation il 
peut très bien‘faire l'un sans l’autre. 
e MASTOCK, dans sa configuration maximale, peut gérer 2000 articles, 
) cliénts/fournisseurs et 120() ventes. 


e MASTOCK tourne sur un: APPLE II, APPLE III 
MACOMPTAI 


e MACOMPTA est un programme de comptabilité en temps réel, capable 
d'assurer à la fois la comptabilité générale tiers et analytique. 

®e MACOMPTA; sür un disque de 5 millions de caractères. pour 
5000 comptes et 1500 écritures, n'occupe que Ja moitié du disque. 

® MACOMPTA est un programme entièrement paramétrable. 

e MACOMPTA permet de lettrer les écritures d’un compte ainsi que la 
clôture automatique d'exercice avec reprise des soldes 

e MACOMPTA tournesur un: APPLE HI. 











se 





MICROGES 


30, bd de Glatigny 78000 VERSAILLES 
Tél.: 16 (3) 955 30 23 








Logiciel 

Micro Informatique Service a rebaptisé, 
pour des raisons de propriété commer- 
ciale, le M/DOS (Poms 4) en 
MEM/DOS. 


Vous pouvez maintenant constituer 
votre réseau local avec MEMNET, à 
base d'Apple Il et Apple Il en cohabita- 
tion. Maximum de 127 postes (Pom's 
vous offre une réduction pour 127 
abonnements !), avec une distance de 
500 mètres maximum entre chaque 
poste. 


Félicitations à M.LS., qui vient d'obte- 
nir le prix « Système » de la Pomme 
d'Or et de créer sa filiale aux USA. Il fau- 
drait que le renvoi de la balle aux Amé- 
ricains se fasse un peu plus souvent. 


M.LS. 3, rue Meyerbeer. 
06000 Nice. Tél. : (93) 87.74.67. 


La société C.D. Soft commercialise un 
logiciel de gestion de cabinet dentaire. 
Ecrit par un chirurgien dentiste et bap- 
tisé AGATHA, ce programme assure 
la gestion d'un fichier de 200 patients 
en cours de soins (plans de traitement, 
soins réalisés…), l'édition des feuilles de 
S.S., des devis de prothèses, des 
ordonnances..…., la gestion des recettes, 
dépenses et des impayés. 

Coût du logiciel : 11 600 FF TTC (prix 
indicatif). 


C.D. Soft. Dr Pierre Gaussen. 
59 bis, rue de la Biche 
30000 Nîmes. Tél. : (66) 28.09.46. 


La société MEDEE propose un logiciel 
d'analyse statistique et de sélection de 
données (profils, movennes, écart- 
type, droite et cœfficient de corrélation, 
analyse à partir de variables obtenues 
par calcul sur des variables de base, 
recherche multicritère…). 


MEDEE. Logiciel ALED. 
9, rue du Professeur Florence. 


69003 Lyon. Tél. : (7) 854.31.95. 


Autre système d’analyse de données 
scientifiques ou marketing, P.C.S.S., 
distribué par Alpha-Systèmes. Struc- 
ture paramétrable des questionnaires 
traités, tests paramétriques (variance, 
corrélation, régression linéaire.….), tests 
non paramétriques (Wilcoxon, Fried- 
man.….), plans factoriels, analyses mul- 
tidimensionnelles (composantes princi- 
pales, régression multiple), vous sont 
offerts à des prix variant de 7 000 à 
29 500 FF HT selon les options. 
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Micro-informations 


Alpha-Systèmes. 51, rue Thiers. 
38000 Grenoble. Tél. : (76) 47.80.67. 


Microgrès distribue à présent un progi- 
ciel de comptabilité sur Apple III avec 
Profile (25 000 comptes et 25 000 
écritures), entièrement paramétrable. 
Prix : 6 000 FF HT. 

Microgès. 30, bd de Glatigny. 

78000 Versailles. Tél. : (3) 955.30.23. 


Matériel 


ZH Computer propose une large 

gamme de périphériques pour 

Apple II : 

— Lecteur de cartes magnétiques 
(carte bleue….). 

— Lecteur et encodeur de cartes 
magnétiques. 

— Lecture et impression de «code 
barre ». 





— Imprimante de ticket de caisse et 
tiroir-caisse connecté sur Apple. 

— Carte de digitalisation d'image et 
caméra de surveillance. 

— Système de saisie optique de for- 
mulaires, questionnaires. 


ZH Computer. 34, rue Vivienne. 
75002 Paris. Tél. : (1) 233.72.07. 


Jod Electronique commercialise depuis 
peu une imprimante-table traçante per- 
mettant le tracé des graphiques en cou- 
leurs sur documents opaques ou trans- 
parents. Prix de l'imprimante (sur la 
base du dollar à 7 FF) : 8 800 FFHIT ; 
logiciel de 665 FF HT à 1 377 FF HT 
par programme. 

Jod Electronique. 9, rue Noblet. 
92500 Rueil Malmaison. 

Tél. : (1) 749.70.44. 





Alpha-Systèmes (cf. ci-dessus) pré- 
sente également des cartes d'extension 
RAM 32, 64 et 128 K, livrées avec des 
logiciels permettant de reloger Apple- 
soft Integer et/ou DOS dans la carte, 
de lire ou d'écrire routines, tableaux ou 
programmes dans la carte, ou de gérer 
une ou plusieurs de ces cartes par POS 
ou CP/M. 


Un autre logiciel permet en outre d’utili- 


ser ces cartes avec Visicalc. Prix de 
2 500 à 6 500 FF HT. 

La même société propose par ailleurs 
une carte d'interface «bufferisée» per- 
mettant la gestion autonome d'impri- 
miante (travaux simultanés de l'impri- 
mante et de l'Apple), avec prise en 
charge de la mise en page et copie 
d'écran graphique (prix : 2 500- 
3 000 FF HT). 

La société B.I.P. a baissé le prix de ses 
cartes : prix public de 5 025 FF HT 
pour la carte 128 K DE (voir Pom's 5) 
avec son logiciel, y compris le Disk 
Emulator et l'extension Visicalc. La 
carte RAM 64 KC est maintenant pro- 
posée à 3 050 FF HT. 


B.L.P. 25, rue du Mont Cenis. 
75018 France. Tél. : (1) 264.02.32. 


Général Automation diffuse des unités 
de disques souples 8” de capacité uni- 
taire de 10 méga-octets, utilisant des 
cartouches souples amovibles inter- 
changeables. Prix unitaire : 6 000 $. 


General Automation. 
Les Mercuriales. 
40, rue J.-Jaurès. 93176 Bagnolet. 


Publications 

Les Éditions Evrolles (61, bd St- 
Germain, 75240 Parix Cedex 05) pré- 
sentent trois nouveaux ouvrages : 


— Votre Gestion Avec BASIC, par: 


Guy Ladevie (138 pages - 65 F). Pré- 
sentation d'exemples d'utilisation du 
micro-ordinateur (comptabilité person- 
nelle ou d'entreprise, état bancaire, 
gestion de fichiers...) et de méthodes 
nécessaires pour une bonne program- 
mation. 

— CP/M et sa famille, par P. Dax 
(144 pages - 65F). Description et 
analyse de CP/M, de ses extensions et 
de son environnement logiciel, et des 
conséquences de l'avènement des pro- 
cesseurs 16 bits. 

— L'Assembleur facile du Z 80, par 
O. Lepage (120 pages - 60 F). 
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Courrier des lecteurs 


Enfin une revue en français pour 
l'Apple II. Après beaucoup de temps 
passé à désassembler et comprendre 
l’Applesoft, aidé par quelques articles 
de revues américaines. Quel plaisir 
enfin. 


Je vous fais parvenir un petit exemple 
de mon «travail», qui peut-être intéres- 
sera vos lecteurs. Il s’agit d'une tortue 
(moins puissante que celle du Pascal) 
utilisable à partir de l’Applesoft avec 
« l'ampersand ». 


J'ai passé de nombreuses nuits sur 
l'Applesoft et ai trouvé un ver dans la 
pomme qui ne semble pas connu (ni 
grave). 

Tout numéro de ligne supérieur à 
63 999 provoque une SYNTAX 
ERROR, sauf les numéros compris 
entre 437 760 et 440 319 qui plantent 
l'Applesoft ??? Le saviez-vous ? 


Pour terminer, une question (je con- 
nais moins bien le DOS que l'Apple- 
soft). La séquence BLOAD «nom de 
programme» et CALL «début de pro- 
gramme» ne fait pas la même chose 
qu'un BRUN «nom de programme ». Il 
semble qu'après un BRUN, en fin de 
programme, le RTS ne rende pas la 
main dans certains cas. L'avez-vous 
remarqué ? 


Jacques Duma 
26-28, rue de Clichy, 75009 Paris 


Comme vous pouvez le voir dans ce 
numéro, nous ne nous sommes pas 
privés de mettre vos connaissances à 
contribution. 


En ce qui concerne les numéros de 
lignes entre 437760 et 440319, ce que 
vous avez remarqué est la consé- 
quence d’un bug Applesoft (du moins, 
c'est ce que nous croyons après 
analyse). Il s’agit de la procédure LIN- 
GET ($DAOC) ; il faudrait remplacer 
[DAIE : B0O D4] par [DAIE : BO D6)]. 
Vous pouvez vous amuser à analyser 
la raison de cette modification. 


Bien entendu, la modification ne peut 
être effectuée que sur une version 
d’Applesoft accessible, donc en RAM. 


Quant à votre dernière question, le 
RTS ne rend pas la main chaque fois 
que le programme en assembleur a 
modifié les entrées/sorties écran ou 
clavier. C’est expliqué dans la docu- 
mentation de HAIFA, qui provoque 
typiquement ce problème. 


Vous avez publié dans Pom's quil 
existe des patches pour Applewriter, en 
particulier pour le mettre en 80 colon- 
nes. Pouvez-vous me dire ce qu'il faut 
faire et me donner des tuyaux à propos 
d'autres transformations de ce pro- 
gramme ? 

Je vous donne celle que j'ai trouvée 
pour obtenir, avec Applewriter I et la 
ROM minuscules, des minuscules à 
l'écran. Dans le TEDITOR, il faut 
entrer : 

OAE6 : 20 69 18 

1869 : 48 C9 EO 90 02 29 BF C9 CO 
90 02 09 20 C9 20 BO 02 09 CO 91 
28 C8 68 60 

C'est le recodage des caractères qui se 
fait uniquement pour l'envoi à la vidéo. 
Le codage Applewriter est conservé en 
mémoire, et reste correct pour l'envoi à 
l'imprimante. 

Ce qui m'intéresse également, c'est la 
possibilité d'insérer dans le texte des 
commandes particulières à l'impri- 
mante, caractères de contrôle ou com- 
mandes plus complexes. Mon IDS jus- 
tifie à droite et à gauche en mode pro- 
portionnel avec la commande 
[CHRS(27);"J,100,600,$"T. Je tra- 
vaille là-dessus ; avez-vous des tuyaux 
à ce sujet ? 

Dans un autre ordre d'idée, 
connaissez-vous des programmes de 
traitement de texte pour Apple qui utili- 
sent la carte 80 colonnes SUP'R'TERM 
et acceptent ses commandes, et 
sachent gérer les accents circonflexes ? 


Comme base de données, j'utilise 
General Manager. Non seulement j'en 
suis satisfait, mais je trouve que ce pro- 
gramme pratiquement inconnu sou- 
tient très bien la comparaison avec 
d'autres, notamment le DB Master. 
D'autant qu'il coûte seulement 
995 francs. 

Guido Benvenuto Bettiol. 

2, rue des Remparts, 

30800 Saint-Gilles. 


Merci pour le passage en minuscules, 
voilà un patch très sympathique. Le 
seul traitement de texte qui marche à 
notre connaissance avec la carte 
SUP'RTERM est l’Applewriter Il, ver- 
sion 2.0. Mais nous ne connaissons pas 
un patch lui permettant de bien impri- 
mer les accents circonflexes. 
Applewriter Il permet l'insertion de 
caractères de contrôle ; renseignez- 
vous sur les limites de ce logiciel. 


Nous sommes désolés, mais nous 
n'avons pas de réponse aux autres 
questions. Nous faisons appel aux 
autres lecteurs de Pom's. Envoyez les 
réponses, s'il vous plaît ! 





Je tiens à vous féliciter de votre travail 
pour votre (notre) revue Pom's. Bien 
que celle-ci m'apparaisse quelque peu 
avancée pour le débutant que je suis, je 
m'y suis abonné dès son apparition. 
C'est à vos connaissances et à votre 
compréhension que je m'adresse 
aujourd’hui plus particulièrement. 
Quelques questions restent pour moi 
sans réponses. 

Pouvez-vous m'indiquer les modifica- 
tions à apporter au programme 
Applewriter pour que celui-ci accepte la 
carte 80 colonnes Videoterm ? 
Comment peut-on afficher le CATA- 
LOG des fichiers réalisés avec Visicalc 
en restant en mode de travail Visicalc ? 
Peut-on modifier le programme Visi- 
calc pour qu'il marche avec la carte 
Videoterm ? 

Comment se fait-il, lorsque j'essaye de 
créer un fichier Visicalc sur une dis- 
quette formatée en DOS avec [/PD], 
que jobtienne le message «1/0 
ERROR » ? 

M. Philippe Guérin. 

39-41, rue Saint-Fargeau, Bât À, 
75020 Paris. 


A notre connaissance, seule la carte 
SUP'RTERM peut fonctionner avec 
Applewriter. Et, pour tout arranger, 
seule Videoterm cohabite avec 
Visicalc.… Contacter Alpha-systèmes 
(voir la rubrique Micro-informations) 
par exemple pour cette cohabitation. 


I n'y a pas moyen d'obtenir le CATA- 
LOG à l’intérieur de Visicalc. On peut 
seulement faire défiler les noms de 
fichiers avec l'instruction [/SL] et la flè- 
che de droite (une flèche par fichier). 


Si vous êtes sur le drive 1 et que vous 
désirez voir les noms de fichiers sur le 
drive 2, vous y parvenez en entrant 
[/SL,D2], suivi des mêmes flèches de 
droite. 


Î n'y a aucun problème pour sauvegar- 
der des fichiers Visicalc sur une dis- 
quette formatée en DOS 3.3 avec l'ins- 
truction habituelle [/SSnoml]. Il n’y a 
rien de spécial à faire. De toute façon 
{/PD] ou [/SS] marche de la même 
façon sur une disquette initialisée 
DOS 3.3 ou Visicalc. 

Le message « 1/0 ERROR » survient 
par contre quand vous essayez, par 
distraction, d'effectuer une sauvegarde 
sur la disquette du programme Visicalc. 
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JCR, UN NOM. QUATRE NOUVEAUTES 


TROIS OUVERTURES. UNE TRANSFORMATION. 


Produits 


XAPROMOTION 


1 APPLE 11 48K 

1 DISK. 3.3. + contrôleur 

1 MONITEUR VIDEO 12° 

1 BOITE DE 10 DISQUETTES 


AK DISK || + CONTROLEUR 
AOKDISK Il 
TABLETTE GRAPHIQUE 
IM+ era 


CARTE LAN: 
SUPER CARTE 
CARTE Z80 


LOGICIELS D 


VISICALC 16 SECTOr 
VISIPLOT 
VISITREND/ VISIPLOT 
VISITERM 


DESKTOP PLAN Il 
VISIFILE 
APPLE LOGO STANDARD 


APPLE Il 

CARTE SUPERTERM F 
CLAVIER NUMERIC 
JOYSTICK Il 
POIGNEES DE ’ 


XXPRON 


AP OUVERTURE D'UNE SURFACE 
PROFESSIONNELLE 


1 SYSTEN 
1 BUSINESS 
AFFAIRE EXC 


SILENTYPE /// 

DISQUE /// 5° 

MONITEUR 12" /// 
ARPROFILE 5MO 


VISICALC /// 

MAIL LIST MANAGER 
PASCAL 

APPLE WRITER /// Fr 
ACCESS /// 


VICTOR 


VICTOR 16K IMP 
CONTROLEUR A MAIN 


JEUX & PROGRAMM 


BIORYTHME 
CONTRATAC 
REGATES 
CHATBYRINTHE 
ENCERCLEMENT 
COW-BOYS 
GLOUTON 
GOOFY GOLF 
MICRO-CHESS 

ROI D'ORDINATRIE 


Prix JCR 


TIC Produits 


Rapidité, sé 
votre entreprise 
d'une informatis 


avant d 

espace profession 

100 m° de matèn 

conçus pour vous, plus le se: 
CR 


Matériel : les meilleurs sy: es 
des plus grandes marques(Apple, 
Sharp. Sinus, Thomson, Commo- 
dore 

Logiciel : une gamme complète en 
bureautique, traitement de textes, 
gestion, paye, facturation, stock, 
comptabilité, etc 

Service : plus qu'un vendeur, JCR 
est le véntable partenaire imfor- 
matique de votre entrepnse 





SHAkr 


SHARP MZe 
QUANTITE LM 


CE 151 4K RAM 


xx ARTICLES EN PROMOTION EXCEPTIONNELLE. 


En raison des fluctuations monétaires ces prix sont susceptibles d'être modifié: sons rés mm 









LA SURFACE 


Produits 


CEIS55EKP" | 
ŒS ITK7) 
w” JINTERF.} 
RIMANTE 
IT. FLOPPIES 
BLE FLOPPY} 


nc 


l'actualité : affaires, 
me particuliers sont 





leurs matériels, étu- 
rofessionnels et vous 





"INFORMATIQUE POUR TOUS” S'AGRANDIT 


feux Sr, 
Poux 82FT TYPE 
sax ROD TYPE M 
IMPRIMANTES CE 
Pr RCENTRONICS 739 


PANASONIC 
AC + BASIC + ALIM 


DISQUETTES 
ATAS" 5F/5D MEMOREX 


| MINI-CASSETTES 
MAGNETO K7 PC APPLE 





Prix JCR 
TIC 


1150F 
1870 F 
1680 F 
6800 F 
1020 F 
9700F 


830 F 
7450 F 
1200 F 
6700F 
9700 F 

540F 


1700 F 
7450F 
1720F 
6700F 


3800 F 
4590 F 

465 F 
3060 F 
5250 F 


2200 F 
2290 F 
3800 F 
3800 F 


12800 F 
13560 F 


670F 
590 F 
1200 F 
690F 
620F 
590 F 
555F 


5400F 
6000 F 
8200 F 


0 F 
5750F 
210F 
380F 


1150F 
230 F 
470F 


35400 F 
3000 F 





Des these commetiom. Nous consulter avant tout achat. 


D Mots Dire bete 59, rue du Docteur Escat 


TRE PAS 11 7221980 13006 MARSEILLE 
290350 F Tél. (91) 37.62.33 





Vente par correspondance - Catalogue gratuit sur demmemes - Cost De sms - Lens 36-48 mois. 
Horaires d'ouverture du magasin du med ee same Me 2245 14--15h. 
Détaxé à l'expo 





DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 





- Certification unitaire 100 % sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”, 


- 5 1/4!’ en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 


